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Vorwort 


In diesem Buch haben wir für Sie wichtige und nützliche 
Informationen über den Commodore 64 zusammengetragen. Der 
Begriff 'Profi' ist einerseits in seinem ursprünglichen 
Sinn zu verstehen (professionelle Anwendungen), es ist 
aber auch an die Leser gerichtet, die fast alle allgemei¬ 
nen Fähigkeiten an ihrem Commodore 64 ausgereizt haben. 
Einiges aus dem Inhalt wird sicherlich bekannt sein, aber 
unsere Absicht war die Zusammenstellung eines Nachschlage¬ 
werkes. Das Buch soll eine umfassende Information über 
Ihren Rechner auf höherer Ebene darstellen. 

Das umfangreiche Stichwortverzeichnis soll Ihnen die 
Handhabung des vorliegenden Buches als Nachschlagewerk 
erleichtern, obwohl die Themata nicht lexikographisch be¬ 
handelt, sondern in logische Gruppen untergliedert sind. 

Abschließend sei noch zu erwähnen, daß die Programme 
mittels des - aus der Zeitschrift 64er bekannten 
Checksummers ausgedruckt wurden, um Ihnen die Arbeit zu 
erleichtern. Eine Beschreibung und das Listing des 
Checksummers finden Sie im Anhang. 
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Einleitung 


Obwohl das,Buch ein Nachschlagewerk sein soll, haben wir 
es in fünf große Kapitel untergliedert. Das Nachschlagen 
wird durch das umfangreiche Stichwortverzeichnis am Ende 
dieses Buches erleichtert. 

Das erste Kapitel beschäftigt sich mit allgemeinen Algo¬ 
rithmen, die nicht nur speziell für den 64er angewendet 
werden können, sondern auch auf andere Rechner übertragbar 
sind. Die dargeste11ten Programmstücke sind in diesem Ka¬ 
pitel nicht alleine lauffähig, da es sich nur um die 
Realisierung einzelner Probleme handelt, die in andere 
Programme einzubetten sind. 

Im zweiten Kapitel sind einige Utilities (getrennt nach 
Basic- und Maschinenprogrammen) ausgeführt. Da sich Basic- 
Erweiterungen im Commodore 64 ohne Hardwareänderungen sehr 
leicht durchführen lassen, wurden die im zweiten Teil vor¬ 
gestellten Maschinenprogramme auch als Basic-Erweiterung 
ausgebaut. Besonders nützlich für den Profi dürften die 
erweiterten PEEK- und POKE-Funktionen sein. 

Das dritte Kapitel widmet sich den sechs Verbindungen des 
Rechners nach außen hin, und im vierten Kapitel sind eini¬ 
ge nützliche Tips und Tricks aufgezählt, die von einzelnen 
PEEK's und POKE's über SYS-Aufrufe bis hin zu kurzen Pro¬ 
grammen reichen. 

Das letzte Kapitel stellt die Internes des Commodore 64 in 
tabellarischer Form sowie einigen Abbildungen zusammen. 
Besonders wird hier auf den Speicher und die Registerver¬ 
teilung (VIC, SID, CIA) eingegangen, aber auch die im ROM 
implementierten Routinen werden angesprochen. Neben eini¬ 
gen anderen Übersichten befindet sich hier auch eine aus¬ 
führliche Fehlerbeschreibung, sowohl der Fehler des Rech¬ 
ners als auch der Floppy. 

Neben dem Literatur- und Stichwortverzeichnis finden Sie 
im Anhang zwei Übersichten zur Übernahme der vorgestellten 
Basic-Erweiterungen in Ihren Rechner (Hex-Listing, Basic- 
Loader). 
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1. Allgemeine Routinen - nicht nur für den Commodore 64 


Da das Handbuch ein Nachschlagewerk für den Profi sein 
soll, haben wir im ersten Kapitel einige Programmsequenzen 
zusammengestellt, die nicht 64er-spezifisch sind. Es sind 
Programmstücke, die man im täglichen 'Programmierer leben' 
immer wieder braucht. Sicherlich werden Sie diesem Kapitel 
viele nützliche Tips entnehmen können. 


1.1 Variablendefinitionen 


Als erstes wollen wir uns mit einem Thema beschäftigen, 
dem - trotz seiner Wichtigkeit - recht wenig Beachtung ge¬ 
schenkt wird, vielleicht, weil eine explizite Definition 
von Variablen in Interpreter-Basic nicht notwendig ist. 
Die Variablen werden hinter dem Programmteil im Anwender¬ 
bereich des Speichers gehalten. Eine Variable erhält ihren 
Speicherplatz bei ihrem ersten Aufruf vom Interpreter zu¬ 
gewiesen. Da der Interpreter bei Verwendung einer Variab¬ 
len alle Vorhandenen absucht, um den Wert zu ermitteln, 
werden offensichtlich Variablen, die sehr früh im Programm 
auftauchen, auch schneller gefunden. Daher sollte man 
häufiger auftauchende Variablen am Programmanfang mit 
einer 'leeren Zuweisung’ versehen (A%=0; A=0 oder a| = ''''), 
um die Rechenzeit zu verkürzen, zumal, wenn die Variable 
am Programmende in einer Schleife steht, die sehr oft 
durchlaufen wird. 

Auch wenn BASIC nur zweibuchstabige Variablennamen zuläßt, 
sollte man die Bezeichnung möglichst mnemotechnisch wählen 
(DA$-Datum/Date; NA$-Name; TE$-Telefon). Einige Bezeich¬ 
nungen haben sich auch eingebürgert : I, J, K, L, M, N als 
tauf variablen ; Hl, H2, ..., HZ als Hilfsvariablen, die 
nur temporär benutzt werden. Man sollte auch darauf ach¬ 
ten, daß Variablen , die in mehreren Programmen verkommen, 
auch immer den gleichen Namen haben, was die Testphase und 
die Wartung der Programme sehr vereinfacht, auch wenn es 
der Rechner nicht zwingend vorschreibt. Die Eesbarkeit der 
Programml istings wird dadurch sehr erhöht. 

Die einzigen explizit zu definierenden 'Variablen' sind 
die Eunktionsdef i n i t ionen, und die Array's (Eelder, Matri¬ 
zen, Vektoren), die mehr als 11 Einträge haben. Jedoch 
sollte man Felder schon wegen der Dokumentation dimensio- 
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nieren, auch wenn es aus Speicherplatzgründen nicht not¬ 
wendig ist (vorbesetzt ist die Feldlänge bei Commodore mit 
11 Einträgen, aber DIM A(5) spart Speicherplatz, weil Fel¬ 
der aufgrund der Anzahl ihrer Elemente den Speicherplatz 
zugewiesen bekommen). Wenn ausreictiend Platz vorhanden 
ist, sollte man die Felder - von denen die Größe vorher 
nicht genau bekannt ist, entsprechend größer wählen. 

Im Folgenden soll noch ein anderer 'Typ' von Variablen be¬ 
schrieben werden, nämlich Variablen, die andere Variablen 
beschreiben. 

Um die Erstellung individueller Software weiter zu er¬ 
leichtern und um damit auch die enormen Personalkosten in 
Grenzen zu halten, geht man dazu über, Individual-Software 
auf Standardbasis zu erstellen. Dies bedeutet nichts ande¬ 
res, als daß die Anwender-Software ihrerseits in eine 
'Hardware' und 'Software' geteilt wird. Mit 'Hardware' ist 
also hier der Teil der Anwender-Software gemeint, der 
weder zum individuellen Teil noch zum Betriebssystem 
gehört. Den höchsten Standard bilden hier zur Zeit die 
hochintegrierten Pakete, die es allerdings erst für 
größere Personal-Computer gibt. 



Bild 1.1-1: Schematischer Aufbau des Zusammenhanges 
zwischen Hardware und Software 
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Programmgeneratoren, die vor allem in der Groß-EDV ein¬ 
gesetzt werden, bieten hier die Möglichkeit, durch Eingabe 
von speziellen Programmkenndaten und weiteren Beschrei¬ 
bungen fertige Software zu erstellen. Eine andere Möglich¬ 
keit ist das Programmieren mit zwei logischen Variablen¬ 
ebenen. 

Als Beispiel für das Programmieren mit zwei logischen Va¬ 
riablenebenen soll hier das Bearbeiten einer Datendatei in 
Auszügen dargestellt werden. Die Bearbeitung einer Datei 
wurde als Beispiel gewählt, weil hier ein großer Einspa¬ 
rungseffekt erzielt werden kann. Zur besseren Übersicht¬ 
lichkeit wird ein dem Commodore-Basic ähnliches Pseudo- 
Basic verwendet. 

Was bedeuten nun diese beiden logischen Variablenebenen? 
Den Daten, die durch das Programm verarbeitet werden sol¬ 
len, fügen wir noch Beschreibungen dieser Daten hinzu, die 
ebenso durch Variablen dargestellt werden. Da Rechner im 
allgemeinen nur zwischen den Variablentypen INTEGER, 
FEOATING POINT und STRING unterscheiden, ist eine physi¬ 
kalische Unterscheidung der beiden Datentypen nicht mög- 
ich. Daher wollen wir sie logische Variablenebenen nennen. 

Wenden wir uns gleich dem Beispiel einer 'DateiverwaItung' 
für eine Schallplattensammlung zu. In herkömmlicher Pro¬ 
grammierung könnte diese Erfassung lauten: 


Beispiel (l): 


10 INPUT'Titel ■;T$ 

20 INPUT"Interpret ';IN$ 

30 INPUT'Ersch.Oahr ■;EJ$ 

40 INPUT'Eundort ";EU$ 

50 GOSUB 'SPEICHERN' 


(TI$ reserviert für Zeit) 


Es werden also die vier Variablen T$,IN$,EC)$ und FU$ ein¬ 
gelesen. Dieses Programmstück ist starr auf eine bestimmte 
DateiverwaItung eingerichtet und zu nichts anderem zu ge¬ 
brauchen. 

Schreiben wir nun das Programmstück einmal anders unter 
Zuhilfenahme der Variablen 

AW - Anzahl der Werte (=4) 

NA$(4) - Namen der Eingaben 
IH$(4) - Inhalt der Eingaben 
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Beispiel (2): 

10 DATA4,Titel,Interpret,Ersch.Jahr,Fundort 
20 READ AW 

30 FOR 1=1 TO AW:READ NA$(l):NEXT 
100 F0RI=1 TO AW 

110 PRINT NA$;:INPUT IH$(l) 

120 NEXT 

130 GOSUB ’SPEICHERN' 


Für den Anwender sind beide Programme nicht voneinander zu 
unterscheiden. Der zeitliche Aufwand (auch für die Pro¬ 
grammierung) ist in etwa gleich. 

Nehmen wir nun einen anderen Anwendungsfall: Erfassen von 
Büchern einer Heimbibliothek mit dem herkömmlichen Pro¬ 
gramm: 


Beispiel (3): 


10 INPUfTitel 
20 INPUf Autor 
30 INPUT’Verlag 
40 INPUT’Rubrik 
50 INPUT’Fundort 
60 INPUT"ausge1iehen an: 


■ ;T$ 

■; AU$ 
■;VE$ 

■ ;RU$ 
■;FU$ 

■ ;AA$ 


oder vielleicht eine Lagerverwaltung 
Beispiel (4) : 


10 INPUT"Artikelnr ■;AR$ 
20 INPUT"Bezeichnung ";BE$ 
30 INPUT"Bestand ";BS$ 
40 INPUT"EK-Preis ";EK$ 
50 INPUT"VK-Preis ";Vk| 


Für Beispiel (3) und (4) muß man wieder ein neues Programm 
schreiben, wenn man das Programm aus Beispiel (1) bereits 
hat. Wenn jedoch das gewünschte in Form des Programms in 
Beispiel (2) geschrieben wurde, genügt es, die Zeile 10 
jeweils zu ändern auf: 

10 DATA 6,Titel,Autor,Verlag,Ruhrik,Fundort,ausge1ieben an 
(für Beispiel 3) 
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oder 

10 DATA 5, Ar tike lnr , Beze i chnung, Besta nd, EK-Pre i s, V-K-Pre i s 
(für Beispiel 4) 


Wie man schon an diesen kleinen Beispielen sieht, ergeben 
sich hier einige Zeitvorteile bei der Erstellung von Pro¬ 
grammen mit gleicher Struktur, aber verschiedenem Verwen¬ 
dungszweck. Stellvertretend für die Ebene der zu verarbei¬ 
tenden Daten steht dabei in Beispiel (2) das Variablenfeld 
IH$(AW) und für die Ebene der programmbeschreibenden Daten 
die Variable AW und das Feld NA$(AW). 

Noch größer wird der Einsparungseffekt beim Programmieren 
des Änderungsdienstes. 

Für die Daten aus (1) könnte das so aussehen: 


Beispiel (5): 


200 GOSUB'EINLESEN' 

210 GOSUB'ANZEIGEN DER DATEN' 

220 PRINT"! - Titel 
230 PRINT“2 - Interpret 
240 PRINT"3 - Ersch.Jahr 
250 PRINT"4 - Fundort 
260 GET A$:IFA$=""THEN260 

270 A = VAL(A$):IF A LT 1 OR A GT 4 THEN260 

(LT für kleiner; GT für 


280 PRINT"Neuer Wert" 

300 0NAG0T0310,320,330,340 
310 INPUT T$:G0T0 350 
320 INPUT IN$:G0T0 350 
330 INPUT Ea$:G0T0 350 
340 INPUT FU$:G0T0 350 
350 GOSUB 'SPEICHERN' 


größer) 


wobei die Unterroutine zum Anzeigen der Daten so aussehen 
könnte: 


10000 PRINT"Titel :";T$ 

10010 PRINT“Interpret :";IN$ 

10020 PRINT“Ersch.Jahr :" ;EJ$ 

10030 PRINT“Fundort :";FU$ 
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Analog zu (2) könnte das Pr'üijramni lauten: 


Beispiel (6) : 

2 00 OOSUli ',E INLKStN' 

210 OOSUB ’ANZKIOEN OER DATEN' 

220 EOR 1=1 TO AW 

230 PRINT 1;;NA$(1) 

240 NEXT 

250 GE FAS : IEA$ = "" THEN25Ü 

260 A = VAE(A$) : lE A LT 1 OR A ÜT AW THEN25Ü 
270 INPUT "Neuen Wert" ; IH$(A) 

280 nOSUD 'SPEICHERN' 


und die Routine zum Anzeigen: 


10000 EORI = ITÜAW: PRINT NA$, 111$: NEXT 


Wollte man für die in (3) und (4) erfaßten Daten einen Än¬ 
derungsdienst programmieren, so müßte man das Programm in 
(5) fast ganz neu schreiben, beim letzten Beispiel genügt 
jedoch auch wieder das Ändern der Zeile 10. 

Neben den Einsparungen beim Programmieren sieht man jetzt 
schon, daß beim Arbeiten mit programmbeschreibenden Va¬ 
riablen noch etwas sehr Wichtiges eingespart wird: der 
kostspielige und rare Speicherplatz (Die Begriffe wie 
Titel, Interpret etc. benötigen nur einmal Speicherplatz). 
Die Programmlaufzeiten erhöhen sich jedoch nur unwesent¬ 
lich (Einlesen der Daten AW und NA|(AW), Verwalten von 
EeIdern). 

Wie dem aufmerksamen Leser sicher nicht entgangen ist, 
werden als Variablen in den Beispielen nur Strings verar¬ 
beitet. Dies ist bei der Erstellung von kommerzieller 
Software eine allgemein übliche Praxis, da auf diese Art 
und Weise bei der Dateneingabe über eine 'Input-Routine' 
bereits eine Prüfung der Daten auf Plausibilität erfolgen 
kann (z.B. Länge der Eingabe, korrektes Datum etc.). 
Außerdem ist bei eindimensionalen Eeldern nicht möglich, 
Eeldelemente verschiedenen Datentypen zuzurechnen. Wenn es 
erforderlich sein sollte, als String eingegebene Daten zum 
Rechnen zu benutzen, so ermöglicht dies die Punktion VAL: 
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X = VAL(IH$(I)) 

Beim 'Rechnen mit Strings' ergeben sich zwar mitunter 
lange Programmzeilen, die bei näherem Hinsehen jedoch gar 
nicht so kompliziert sind. 

Beispiel (7): 

NA$(4) = "Bestand " IH$(4)="100 

NA$(5) = "EK-Wert " IH$(5)=" 2,50" 

NA$(9) = “Lagerwert " IH$(9)=" ? 

IH$(9) 'errechnet' sicn auf folgende Weise 


IH$(9) = STR$( VAL(IH$(4)) * VAL(IH$(5)) ) 


Obwohl man ein so allgemeines Programm lediglich mit Daten 
vom Typ STRING aufbauen kann, ist es für die Prüfung von 
Plausibilitäten jedoch unerläßlich zu wissen, ob die ein¬ 
zugebenden Daten Zahlen sein dürfen oder nicht. Wir er¬ 
gänzen daher die Zeile 10 (für 4) durch die Zeilen 

11 DATA A,A,I,F,F 

12 DATA 6,40,4,5.2,5.2 


und benutzen die neuen Variablen 


AR$(AW) - Art der Daten 

A - Alphanumerische Zeichen (Buchstaben) 
I - Integer (Ganze Zahlen) 

F - Floating Point (Dezimalzahlen) 

L(AW) - Länge der Daten 

für A - Länge der Zeichenreihe 
für I - Anzahl der Stellen 
für F - Anzahl der Vor- und 
Nachkommastellen 


Eingelesen werden die Daten mit 

40 FOR I = 1 TO AW : READ AR$(I):NEXT 
50 FOR I = 1 TO AW : READ L(I):NEXT 


oder kürzer: 
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FOR I = 1 TO AW 
READ NA$(I) 

READ AR$(I) 

READ E(I) 

IMEX T 

wenn man die DATA-Anweisungen in den Zeilen 10 bis 12 ent¬ 
sprechend ändert. Die mit diesen Variablen genauer spezi¬ 
fizierten Daten in Zeile 10 können nun auch Plausibili¬ 
tätsprüfungen auf ihre Eigenschaften unterzogen werden, 
ohne daß dazu das jeweilige Programm geändert werden muß. 
Z.B. kann die Länge der Artikelnummer geprüft werden mit 
der Zeile: 


IE AR$(1)="A" THEN IE LEN(lH$(l)) GT L(l) GOTO'FEHLER' 


oder die Höhe des Bestands auf vier Stellen mit: 


IE AR$(3) = "I" EHEN IE ABS(VAL(IH$(3))) GT 10**L(l) 
GOTO'FEHLER' 


Um ein Programm noch weiter zu abstrahieren, kann man 
statt der DATA-Zeilen noch sequentielle Dateien verwenden 
und dem Programm ein Menü der zu bearbeitenden Dateien 
voranstellen, wodurch eine sequentielle Datei gewählt 
wird, aus der die programmbeschreibenden Daten (in den 
Beispielen AW, NA$(AW), L(AW), AR$(AW) eingelesen werden. 


1.2 Menütechniken 


Wenn man sich einige kleine Unterprogramme, Funktionen 
oder Hilfsprogramme geschrieben hat, so ist es eine ziem¬ 
lich aufwendige Sache, wenn man dauernd neue Programme 
nachladen muß. Man kann diese Programme aber auch als Teil 
eines Ganzen ansehen, d.h. alles in ein Programm laden und 
über ein Menü - wie in der kommerziellen Datenverarbei¬ 
tung - aufrufen. 

Gegeben seien neun Unterprogramme oder Funktionen (alle 
unabhängig voneinander), die jeweils in den Zeilen 1000- 
1099, 2000-2999,..., 9000-9999 stehen. Die Programmteile 
enden alle mit der Anweisung 'GOTO 100'. 
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Folgendes Programmstück liefert ein einfaches Menü: 


100 CLR rem löschen aller Variablen 

110 PRINT "(clr screen/crsr home/5 x crsr down)' 

120 PRINT ' 1 - (Programmname 1) 

130 PRINT ■ 2 - (Programmname 2) 

140 PRINT ■ 3 - (Programmname 3) 

150 PRINT ' 4 - (Programmname 4) 

160 PRINT “ 5 - (Programmname 5) 

170 PRINT ' 6 - (Programmname 6) 

180 PRINT ■ 7 - (Programmname 7) 

190 PRINT ■ 8 - (Programmname 8) 

200 PRINT ' 9 - (Programmname 9) 

210 PRINT : PRINT : PRINT 

220 PRINT ■ Bitte wählen Sie: ' ; 

230 GETA$ : IF A$ = " THEN 230 

240 A=VAL(A$) : IE A LT 1 OR A GT 9 THEN 230 

250 PRINT A$ 

260 ON A GOTO 1000,2000,30009000 


Die Zeilen 110 bis 220 bringen offensichtlich das Menü auf 
den Bildschirm. Zu beachten ist hier das Semikolon in 
Zeile 220, um eine saubere Ausgabe zu gewährleisten. 

Zeile 230 ist eine Warteschleife für die Eingabe, in Zeile 
240 wird die Plausibilität der Eingabe geprüft. Es werden 
nur die Zeilen 1 bis 9 zugelassen, der Rest der Tastatur 
ist 'blockiert'. Zeile 260 beinhaltet den normalen Pro- 
grammvertei1er. 

Es ist natürlich auch möglich, den Menüpunkten Buchstaben 
voranzustellen (E-erfassen, A-ändern, L-löschen, S- sor¬ 
tieren ). In jedem Lall empfiehlt sich jedoch die Verwen¬ 
dung nur eines Zeichens um die Eingabe durch die RETURN- 
Taste zu sparen oder das Menüprogramm nicht unnötig zu 
komplizieren. Anwender, die sich durch mehrere Menü-Stufen 
'durchquählen' müssen, wissen die Einsparung des RETURN's 
zu schätzen. 

Werden Buchstaben bei der Menüanzeige verwendet, so sind 
die Zeilen 240 bis 260 zu ersetzen durch: 

240 IF A$ = 'A' THEN 1000 : REM ändern 
250 IE A$ = “E" THEN 2000 : REM erfassen 


299 GOTO 230 
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Ein Rücksprung nach Zeile 100 ist zum einen nicht erfor¬ 
derlich, und zum anderen würde der Bildschirm nach einer 
Fehleingabe flackern. Die Ausgabe einer Fehlermeldung ist 
auch nicht erforderlich, da es sich meist nur um einen 
Tippfehler handelt, kann jedoch in Zeile 240 bzw. 299 
eingefügt werden: 


299 PR INT"Fa Ische Eingabe, bitte wiederholen": 
■FOR 1 = 1 TO 1000 : NEXT 


Die FOR...NEXT-Schle ife veranlaßt den Rechner zu warten, 
da er zur Bearbeitung der Schleife Zeit benötigt. Durch 
Ersetzen des Wertes '1000' kann jede beliebige Zeit ein¬ 
gestellt werden. Durch die Anweisung PRINT"(Cursor oben) 
(Anzahl der Feerzeichen in der Fehlermeldung)", kann die 
Fehlermeldung anschließend gelöscht werden. 

Die Verwendung eines GOSUB im ersten Beispiel Zeile 260 
(ON A GOSUB ...) ist nicht sinnvoll, da hier nur der Stack 
belastet wird. Die Programmteile dürfen bei Verwendung von 
GOSUB nicht mit 'GOTO 100' beendet werden, sondern mit 
'RETURN', da sonst der Stack irgendwann überläuft. 

Bei mehrstufigen Menüs innerhalb eines Programmes sollten 
die Untermenüs in den Zeilen 1000,2000,... beginnen. Ein 
Zusammenfassen aller Menüs ist aus Dokumentationsgründen 
nicht anzuraten. Bei mehrstufigen Menüs sollte auf die 
Einheitlichkeit aller Menüs geachtet werden, um Bedie¬ 
nungsfehler zu vermeiden. 

Abschließend in diesem Kapitel noch ein Wort zu den ange¬ 
wählten Programmen. Nicht immer ist es möglich, Arrays im 
Unterprogramm zu löschen. Deshalb sollte bei mehrfacher 
Verwendung von Programmteilen durch Menüaufruf die Dimen¬ 
sionierung der Arrays vor dem Hauptmenü erfolgen. Ebenso 
die Definition von Funktionen. Werden im Vorspann des 
Hauptmenüs Variablen von globaler Bedeutung vorbesetzt, so 
ist das CLR in Zeile 100 nicht zu verwenden. Achten sie in 
diesem Fall auf die Kompatibilität der Daten. Sicherheits¬ 
halber sind entsprechende Variablen immer neu in einem 
Programmteil vorzubesetzen. Achten sie auch darauf, daß 
geöffnete Dateien vor dem Sprung auf das Hauptmenü ge¬ 
schlossen werden. 
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1.3 Sortierverfahren 


Neben dem Erfassen, Ändern, Löschen, Listen und selektiven 
Ausgeben der Daten bildet das Sortieren besonders im kom¬ 
merziellen Bereich aber auch bei privaten Programmen ein 
sehr wichtiges Auswertungsverfahren (z.B. Hitlisten im 
Verkauf, Ladenhüterlisten in der Lagerverwaltung, alpha¬ 
numerisch sortierte Kundenlisten, Kunden nach Umsätzen 
sortiert oder Schallplatten nach Titel und Interpret sor¬ 
tiert). Sortieren kann zum einen bedeuten, daß Zahlen oder 
Datensätze, die ein bestimmtes Sortierkriterium enthalten, 
alphanumerisch geordnet werden, es kann aber auch heißen, 
daß die ursprüngliche Ordnung der Daten nicht verändert 
wird und die alphanumerisch sortierte Reihenfolge über 
Zeiger durchgeführt wird. 



Sortieren von Daten 

a) unsortiert 

b) Sortieren im Ursprung 

c) Sortieren mit Hilfsbefehl 



Bild 1.3-1: Prinzipielle Sortiermöglichkeiten 
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In diesem Kaptitel soll nur kurz auf die verschiedenen 
Sortierverfahren und ihre Vor- und Nachteile eingegangen 
werden. Eine umfangreiche Diskussion aller Sortierverfah¬ 
ren ist im Rahmen dieses Buches leider nicht möglich. 


1.3.1 Maxsort / Minsort 


Maxsort und Minsort unterscheiden sich im Algorithmus 
nicht, der Unterschied liegt im Endergebnis: Maxsort sor¬ 
tiert absteigend; Minsort sortiert aufsteigend. Maxsort 
und Minsort sind die einfachsten Sortierverfahren. Mit 
ihnen werden unter Zuhilfenahme einer Hilfsvariablen die 
Datensätze so umgruppiert, daß das jeweils größte (klein¬ 
ste) Element herausgesucht wird und mit dem ersten noch 
nicht sortierten Element über die Hilfsvariable vertauscht 
wird. Nachfolgend ein Programmbeispiel für Minsort: 


100 EOR 1= lTON-1 

110 M = 0 : AM = 1 E 38 

120 EOR 0 = I TO N 

130 IE A(0) LT AM THEN AM = A(J) : M = 0 

140 NEXT 0 

150 AM = A(I) : A(I) = A(M) : A(M) = AM 
160 NEXT I 


Zum Ablauf: Zeile 100 läßt das Sortierverfahren für alle N 
Elemente durchlaufen. In Zeile 110 werden die Variablen M 
(Fundstelle des minimalen Elementes) und AM (aktuelles 
minimales Element) vorbesetzt. Die Daten selbst stehen in 
dem Vektor A(l). Dabei ist zu berücksichtigen, daß AM 
größer gleich dem minimalen Element im zu sortierenden 
Vektor sein muß, was durch Vorbesetzen mit der größtmög¬ 
lichen Zahl (oder bei Strings mit dem größtmöglichen 
Zeichen = CHR$(255)) geschieht. 

In Zeile 120 beginnt eine Schleife, die in dem noch nicht 
sortierten Teil des Vektors das minimale Element sucht. 
Falls dieses gefunden wird (Zeile 130), wird der Zeiger, 
wo sich dieses Element befindet (M), mit der aktuellen 
Stelle (O) vorbesetzt und AM mit dem gefundenen Wert be¬ 
setzt. Am Ende dieser Schleife (Zeile 140) steht in AM das 
minimale Element und in M,wo dieses Element zu finden ist. 
In Zeile 150 wird dieses minimale Element und das erste 
unsortierte Element im Datensatz-Vektor ausgetauscht. Wird 
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Zeile 160 erreicht, so sind N-1 Sortiervorgänge abgelau¬ 
fen, das letzte Element (A(N)) braucht offensichtlich 
nicht mehr sortiert zu werden. 

Betrachtet man sich die Anzahl der Zugriffe bei Minsort 
genauer, so erhält man die Gauss'sche Formel n*(n-l)/2, 
was ungefähr n**2/2 ('**' als Potenzierungsoperator 
'hoch') entspricht. Bei einem n von etwa 5000 ergibt sich 
ein n**2/2 von 12.500.000 . Alle guten Sortierverfahren 
haben eine Zugriffshäufigkeit von n*log n, womit ein gutes 
Verfahren im Vergleich nur 60.000 Zugriffe benötigen 
würde, und damit um den Faktor 400 schneller fertig wäre 
als Minsort. Dies trifft zwar nicht ganz zu, da in der 
Regel bei Sortierverfahren noch ein allgemeiner Aufwand 
auftritt, der zusätzlich zum variablen Wert noch einen 
konstanten Faktor bringt. Dieser allgemeine Aufwand ist 
bei guten Verfahren wesentlich größer als bei Minsort, 
Nach Knuth (Fiteraturverzeichnis #1#) gelten etwa folgende 
Formeln für die Anwendung bei Sortierverfahren: 


Primitives Verfahren: 2 *n**2 +9*n 

Heap sort: 23 * ln (n) + 0,2 * n 

Quicksort: 12 n * ln (n) + 2 * n 


Aufgrund dieser Formel ist der Faktor zwischen Maxsort und 
Quicksort immerhin noch 100. 

Für das Verhalten von Sortierverfahren ist weiterhin noch 
der Zustand der zu sortierenden Daten abhängig. Je nach¬ 
dem, ob die Daten sortiert, antisortiert oder gut gemischt 
sind, schwankt der Zeitaufwand für den Sortiervorgang. Bei 
Quicksort (siehe unten) ist dieser Faktor im ungünstigsten 
Fall proportional n**2 . Allerdings sind diese Fälle nicht 
sehr häufig. Bei zeitkritischen Sortiervorgängen verwendet 
man besser ein schnelleres Verfahren, wie zum Beispiel 
HEAP-SORT. 


1.3.2 Heap-Sort 


Heap-Sort ist ein Sortierverfahren, das auf Binär-Bäumen 
basiert. Auf Binärbäume kann an dieser Stelle aus Platz¬ 
gründen nicht gesondert eingegangen werden; es sei auf die 
entsprechende Fiteratur, z.B. Basic ohne Probleme Band 3, 
verwiesen. Heap-Sort ist ein sehr schnelles Verfahren und 
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läßt den Sortieraufwand auch bei ungünstiger Anordnung der 
Daten nicht allzu sehr anwachsen. Bei Heap-Sort geht ein 
Vorsortieren des Vektors nicht in die Bearbeitungsdauer 
mit ein. Der Aufwand bei Heap-Sort wird im wesentlichen 
durch den Faktor n*log(n+l) bestimmt. Bei großen Daten¬ 
mengen ist Heap-Sort besonders günstig, weil die Daten in 
ihrem eigenen Feld sortiert werden und kein zusätzlicher 
Speicherplatz benötigt wird. Heap-Sort besteht im Prinzip 
daraus, daß aufgrund der Daten ein Binärbaum erzeugt wird, 
der dann nach einem vorgegebenen Algorithmus ausgedruckt 
wird. Erhält man den Binärbaum auch nach dem Sortieren, so 
läßt sich durch geeignete Verfahren des Einfügens und 
Löschens immer wieder auf die sortierten Daten zurückgrei¬ 
fen, ohne jeweils den Baum neu anlegen zu müssen. Der 
Algorithmus stammt aus dem Jahre 1964 und wurde von den 
Amerikanern Floyd und Williams entwickelt. 


1.3.3 Quicksort 


Quicksort ist ein sehr raffiniertes Verfahren und trägt 
seinen Namen zurecht. Eine genaue Beschreibung des Ver¬ 
fahrens befindet sich in # 2 #. 

Quicksort ist ein rekursives Verfahren; rekursiv heißt, 
daß das Programm bzw. die Prozedur sich selbst aufruft. 
Dies ist in Basic im Sprachumfang nicht vorgesehen, und 
wir müssen die Rekursion selbst herbeiführen. Bevor wir 
jedoch zu einer möglichen Implementierungs-Version auf 
BASIC kommen, wollen wir uns die prinzipielle Verfahrens¬ 
weise von Quicksort einmal allgemein verdeutlichen. Gege¬ 
ben sei ein Vektor A() mit n Elementen, die es zu sor¬ 
tieren gilt. Man wähle sich nun ein beliebiges Element aus 
A() als Vergleichskriterium. Bei hinreichend geschickter 
Auswahl des Elementes aus A() kann man bei einigermaßen 
vorsortierten Daten die Sortierzeit sehr stark verkürzen. 
Ein günstiges Vergleichselement des Vektors ist z.B. bei 
einem vorsortierten Vektor in der Mitte zu finden. Die 
Elemente des Vektors A() werden nun so geordnet, daß links 
von unserem Vergleichselement AV alle Elemente stehen, die 
kleiner sind als AV und rechts alle Elemente, die größer 
sind. Nachdem diese Drdnungsbeziehung erreicht wurde, kann 
man auf die zwei Teilvektoren ( 1 bis AV ; AV+1 bis N ) 
ein beliebiges Sortierverfahren anwenden: zum Beispiel 
Quicksort (daher der rekursive Unterprogrammaufruf). 

Wie erreicht man nun diese Drdnung? Man prüft vom linken 
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Rand des Vektors ausgehend (mit einer Lauf variablen I) 
alle Elemente ab, ob diese kleiner sind als das Ver- 
gleichselerne nt AV. Dies geschieht solange, bis ein Element 
auftritt, das größer ist als AV, Dann geht man in gleicher 
Weise vom rechten Rand des Vektors (mit einer Laufvariab¬ 
len J) aus und prüft, ob alle Elemente größer sind als das 
Vergleichselement AV. Dies wiederum auch so lange, bis ein 
Element auftritt, das kleiner ist als AV. 

An dieser Stelle zeigt nun der Eaufanzeiger I auf ein Ele¬ 
ment das größer ist als AV, aber auf der linken Seite des 
Vektors steht, und der Laufanzeiger J zeigt auf ein Ele¬ 
ment, das kleiner ist als AV, aber im rechten Teil des 
Vektors steht. Die von uns gewünschte Ordnung ist durch 
einfaches Austauschen dieser beiden Elemente wieder her¬ 
gestellt, und man läßt zunächst I und dann □ weiter auf 
die Mitte des Vektors zulaufen, bis sie sich treffen 
(3=1+1; I=J-1). An dieser Stelle ist dann die gewünschte 
Ordnung erreicht, und auf die Teilvektoren 1,...,I und 
J,..,,N kann wieder ein beliebiges Sortierverfahren ange¬ 
wendet werden. An dieser Stelle ist bereits ersichtlich, 
daß der Sortieraufwand mit der Anzahl der Vertauschungen 
wächst. Hat man nun einen einigermaßen vorsortierten 
Vektor (z.B. bei der Kundendatenerfassung werden neue 
Kunden im Anschluss an die bereits sortierten erfaßt, so 
wird man geschickterweise vor einem erneuten Sortiervor¬ 
gang ein Element, das kurz hinter der Mitte des Vektors 
liegt, oder das Element INT(N/2) wählen, womit die Ver¬ 
tauschungsvorgänge auf ein Minimum reduziert werden). 

Auch in BASIC ist das einmalige Herstellen einer Ordnungs¬ 
beziehung, wie sie oben erwähnt wurde, keine Schwierig¬ 
keit. Probleme treten dann auf, wenn auf die beiden Teil¬ 
vektoren jeweils wieder dasselbe Sortierverfahren angewen¬ 
det werden soll, weil BASIC keine rekursiven Prozeduren 
und keine Parameterübergabe an Unterprogramme kennt. 
Unseren rekursiven Programmaufruf wollen wir an das von 
höheren Programmiersprachen verwendete Verfahren anlehnen. 

Dazu verwenden wir einen sogenannten Stack (Kellerspei¬ 
cher), der nach der Last In - Eirst Out-Regel (LIFO / was 
zuletzt gespeichert wurde, wird als erstes wieder verwen¬ 
det) arbeitet. Als Parameter müssen jeweils der linke und 
rechte Rand des zu sortierenden Teilvektors übergeben 
werden. Wir definieren uns also zwei Felder L(lOOO) und 
R(IOOO), wo jeweils die Werte für den linken und den rech¬ 
ten Rand des Teilvektors abgelegt werden. Da bei jedem 
Aufruf von Quicksort je ein Element der beiden Vektoren 
E(IOOO) und R(lOOO) abgearbeitet wird, und nur zwei neue 
Elemente hinzukommen, ist somit eine Kellertiefe von 1000 
Elementen auch für relativ große Datenmengen ausreichend. 
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Wie Erfahrungswerte zeigen, ist der allgemeine Aufwand von 
Quicksort zur Verwaltung des Kellers bei weniger als 10 
bis 20 Elementen sehr groß, und wir wollen bei einem Teil¬ 
vektor, der weniger als 15 Elemente enthält, das Sortier¬ 
verfahren Minsort anwenden. Dies entlastet gleichzeitig 
auch unseren Kellerspeicher, da bei Minsort dem Keller¬ 
speicher keine weiteren Elemente zugeführt werden. 

Eine mögliche Basic-Version von Quicksort: 


100 DIM L(IOOO) 

110 DIM R(IOOO) 

120 Z = 1 

130 L(l) = 1 : R(l) = N 
140 L = L(Z) : R = R(Z) 

150 Z = Z - 1 

160 IE R-L LT 15 THEN GOSUB ‘MINSORT' : GOTO 270 
170 AV = A(lNT((L+R)/2)) 

180 I = L : 0 = R 
190 FOR K=1T0 N 

200 IE A(I) LT AV THEN 1=1+1 : GOTO 200 

210 IE A(0) GT AV THEN J = J+1 : GOTO 210 

220 IE I GT 0 THEN 250 
230 H = A(I) : A(I) = A(J) : A(l) = H 
240 IE I LE 0 THEN NEXT K 

250 IE L LT 0 THEN Z = Z+1 : L(Z) = L : R(Z) = J 

260 IE I LT R THEN Z = Z+1 : L(Z) = I : R(Z) = R 

270 IE Z GT 0 GOTO 140 
280 END 


Beschreibung: In den Zeilen 100 und 110 werden die provi¬ 
sorischen Stacks für den Vektoranfang in das 
Vektorende gesetzt. In Zeile 120 wird der 
Stackzeiger auf das erste Element gesetzt 
und in Zeile 130 werden auch die entspre¬ 
chenden Elemente der Matrix vorbesetzt. 

In Zeile 140 beginnt der eigentliche Sor¬ 
tiervorgang (diese Zeile wird für jeden 
neuen Durchlauf angesprungen). Dann wird der 
Zeiger auf den Stack auf das vorhergehende 
Element - bereits für den nächsten Durchlauf 
zurückgesetzt und geprüft, ob das Verfahren 
Minsort nicht effizienter ist. In Zeile 170 
wird das Vergleichskriterium besetzt und in 
Zeile 180 die aktuellen Grenzen festgelegt. 
In Zeile 190 beginnt eine prinzipielle End¬ 
losschleife, die sicherste1It, daß auch der 
ganze Bereich geprüft wird. Dann erfolgt der 
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Vergleich elementweise (Zeile 200 linke Sei¬ 
te; Zeile 210 rechte Seite). Ein Durchlauf 
ist beendet, wenn sich die beiden Laufva¬ 
riablen 'begegnen'. 

Wurden die Vergleichsschleifen verlassen, 
ohne daß das Endekriterium erreicht ist, so 
muß eine Vertauschung durchgeführt werden 
(Zeile 230). In den beiden nächsten Zeilen 
werden die Daten der beiden Teilvektoren für 
den Stack aufbereitet, was dem rekursiven 
Aufruf entspricht und Zeile 260 prüft, ob 
noch etwas zu sortieren ist. 


Da das Sortieren auf der Diskette wegen der Zugriffszeiten 
sehr zeitaufwendig ist (im Gegensatz zum Sortieren im Ar¬ 
beitsspeicher), sollte man den Sortiervorgang nach Mög¬ 
lichkeit in den Arbeitsspeicher verlagern. Da in der Regel 
Datensätze nur nach einem (vielleicht auch mehreren, aber 
nie allen) Elementen sortiert werden müssen, genügt es, 
die zu sortierenden Datensatzteile in den Rechner einzu¬ 
lesen, und im Arbeitsspeicher zu sortieren. Dabei darf man 
jedoch nicht vergessen, die Information, die angibt, wo 
sich der Datensatz befindet, mit zu sortieren. Will man 
z.B. eine relative Datei nach Namen sortieren, so genügt 
es, die Namen in ein Feld A$() einzulesen, und - korres¬ 
pondierend zu der Feldnummer in A$() - ein Feld A(), das 
die Nummer des Datensatzes enthält. Am Anfang wird A(l)=I 
sein, da die Daten sequentiell eingelesen werden sollten. 
Steht in der Sortierroutine eine Vertauschung von Feld¬ 
elementen wie 


H$=A$(I) : A$(I)=A$(0) : A$(0)=H$ 
so ist eine Zeile 

H=A(I) : A(I)=A(0) : A(j)=H 

zu ergänzen. Ein nach Namen sortierter Ausdruck aller 
Datensätze kann dann mit einem Schleifendurchlauf durch 
den Vektor der Datensatzzeiger erfolgen. 

Sind die einzelnen Felder des Datensatzes mit Leerzeichen 
aufgefüllt, d.h. wird beim Einlesen statt 'Fluber' 
'Huber ' eingelesen - was durchaus sinnvoll in an¬ 
deren Programmteilen sein kann - so sollte man zuerst die 
anhängenden Leerzeichen eliminieren, um keinen Speicher¬ 
platz zu verschenken. In jedem Fall ist bei großen Daten¬ 
mengen eine Speicherplatzüberschlagsrechnung durchzufüh¬ 
ren, womit der Speicherbedarf aller einzulesenden Werte 
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festgestellt werden soll. Stehen nur 35 Kilo-Byte Anwen¬ 
derspeicher zur Verfügung, so ist es unmöglich, 1000 Ein¬ 
träge mit durchschnittlich 35 Zeichen Länge zu sortieren, 
da einerseits das Programm sich auch im Arbeitsspeicher 
befinden muß und andererseits die Zusatzinformation in 
A(N) - wo der Datensatz steht - auch Platz benötigt. Hier 
könnte ein Mischen und Sortieren helfen (siehe unten). 


1.3.4 Andere Sortierverfahren 


Eine weitere Möglichkeit des Sortierens ergibt sich durch 
die Verwendung von Suchbäumen. Die schon erwähnten Binär- 
Bäume sind als solche Suchbäume angelegt. Die Anwendungs¬ 
möglichkeiten für Suchbäume sind im Datenbankwesen und bei 
der Verwaltung von Variablenlisten in Compilern. Sie er¬ 
lauben ein einfaches Einfügen, Suchen, Sortieren und Aus¬ 
listen. Jedoch ein äußerst wichtiges Problem bei den Such¬ 
bäumen ist die mögliche Entartung. Unter Entartung eines 
Baumes versteht man, daß einzelne Zweige relativ lang zur 
durchschnittlichen Länge des gesamten Baumes sind. Ein 
guter Suchbaum wird durch eine solche Entartung erheblich 
verschlechtert, da sich die Zugriffszeiten um ein Mehr¬ 
faches im Durchschnitt erhöhen können. 

Bei sogenannten AVL-Bäumen wird die Entartung durch spe¬ 
zielle Programmteile vermieden. Dafür haben AVL-Bäume 
einen erheblich größeren Rechenzeitaufwand beim Einfügen 
in den Baum. Die AVL-Bäume (nach Adelson, Velski, Landis) 
sind sogenannte balancierte Suchbäume. Wenn die Höhe eines 
Baumes als der längste Weg von der Wurzel zu einem Blatt 
gilt, so ist ein Suchbaum genau dann ein AVL-Baum, wenn 
sich die Höhe zweier beliebiger Knoten eines beliebigen 
Teilbaumes um maximal 1 unterscheidet (zur Vollständig¬ 
keit: ein nicht vorhandener Baum hat die Höhe null). 

Ähnlichen Aufwand muß man oft für die sogenannten B-Bäume 
betreiben. Die B-Bäume sind Suchbäume, aber keine Binär- 
Bäume. Entwickelt wurden sie um 1971/1972 von R. Bayer. 
Die Grundidee der B-Bäume ist die mehrfache Bewertung von 
Knoten, und die Zulassung von mehr als zwei Söhnen. 

Sinnvoll ist die Anwendung von B-Bäumen, wenn der Baum auf 
einer Platte abgelegt wird und sehr viele Daten zu verwal¬ 
ten sind. Jeder Zugriff auf einen Knoten würde dann einem 
Plattenzugriff entsprechen. Da bei schnellen Plattenlauf¬ 
werken und hohen Datenübertragungsraten zwischen dem Com- 
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puter und der Peripherie die Datenlesezeiten im Verhältnis 
zu den Datenzugriffszeiten günstiger sind, ist es ratio¬ 
neller, bei einem Plattenzugriff mehr als eine Bewertung 
in den Arbeitsspeicher des Rechners einzulesen. Bei Groß¬ 
anlagen liegt die Anzahl der Bewertungen in einem Knoten 
zwischen 100 und 1000. 

Ein Entarten eines B-Baumes wäre in diesem Fall nicht so 
sehr von der Anzahl der Blätter und der Höhe des Baumes 
abhängig, sondern eher von der Anzahl der Bewertungen in 
einem Knoten, im schlechtesten Falle könnte sogar nur eine 
Bewertung in einem Knoten stehen, der bis zu 1000 Bewer¬ 
tungen fassen kann. Um dies zu verhindern, werden einige 
Tricks angewendet. Als erstes wird eine Konstante m vor¬ 
gegeben, so daß die Anzahl der Werte in einem Knoten zwi¬ 
schen m und 2m betragen soll (Beispiel: m = 50; jeder 
Knoten enthält mindestens 50 und max. 100 Bewertungen ). 
Außerdem soll der B-Baum (wie auch der AVL-Baum) immer 
vollständig ausgeglichen sein. Weil die Anzahl der Werte 
in einem Knoten variabel ist, wird die Anzahl im Knoten 
zusätzlich mitgespeichert, denn bei 1000 Bewertungen in 
einem Knoten und ebenso vielen Zeigern auf andere Knoten, 
ist der Speicherplatzbedarf für diese Information ver¬ 
nachlässigbar. Generell werden im ungünstigsten Fall bis 
zu 50 Prozent des Speicherplatzes verschenkt. Näheres über 
B-Bäume finden Sie in #3#. 

Da im Prinzip jeder Algorithmus, der geordnete Daten lie¬ 
fert, als Sortierverfahren bezeichnet werden kann, ist 
eine Aufstellung aller Verfahren nicht möglich. Die wich¬ 
tigsten Verfahren wurden bereits erklärt. Was von einem 
Sortierverfahren zu halten ist, das bis zur Fertigstellung 
einer Ordnung immer alle Daten von Anfang bis Ende paar¬ 
weise vergleicht und durch evtl. paarweise Vertauschung 
eine Ordnung herstellt, mag sich der geneigte Feser selbst 
überlegen: bei n ** 2 Abfragen und 2 * n ** 2 Fesevorgän- 
gen im schlechtesten Fall; Zeit bei n=5000 ? ) 


1.4 Selektieren 


Das selektive Heraussuchen von Datensätzen aus einer Da¬ 
tei, die einem bestimmten Selektionskriterium genügen, ist 
besonders im kommerziellen Bereich von großem Vorteil. Man 
denke nur an die Textverarbeitung (Mailing), wenn es darum 
geht, Werbebriefe in bestimmte Postleitbereiche zu senden, 
um Portokosten zu sparen, oder alle Kunden anzuschreiben 
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die von einem bestimmten Vertreter betreut werden. Weiter¬ 
hin kann das Selektieren einer Datei dazu dienen, Kartei¬ 
leichen aufzufinden, indem zum Beispiel alle Kunden einer 
Kundendatei herausgefiltert werden, deren letztes Rech¬ 
nungsdatum vor einem bestimmten Stichtag liegt, oder bei 
Lagerartikeln Ladenhüter herauszufinden, wenn ein gewisser 
Umsatz unterschritten wurde, oder bei Handelsvertretern, 
die verschiedene Lieferfirmen vertreten, wenn es gilt alle 
Kunden herauszufinden, die Produkte von einem bestimmten 
Lieferanten bezogen haben. Aber auch Beispiele im privaten 
Bereich sind denkbar, wenn jemand seine Briefmarken per 
Computer katalogisiert, so ist mittels eines Selektierpro¬ 
gramms sehr schnell eine FehItei11iste erstellt. Oder wenn 
jemand bei seiner Platten- bzw. Tonbandsammlung das In¬ 
haltsverzeichnis mittels Rechner erstellt, ist es mit Se¬ 
lektieren sehr einfach, alle Titel eines Interpreten her¬ 
auszufiltern. Oder. 

Wie an diesen wenigen Beispielen zu ersehen ist, gibt es 
für das Selektieren vielfältige Möglichkeiten, den Anwen¬ 
dungen sind dabei keine Grenzen gesetzt. Was selektiert 
werden soll und aus welchen Datenbeständen ist vom jewei¬ 
ligen Anwendungsfall abhängig. Aber eine generelle Vorge¬ 
hensweise, wie man selektieren kann, wollen wir hier kurz 
beschreiben. 

Wir wollen uns auf eine Dateiverwaltung beziehen, die da¬ 
teibeschreibende Variablen enthält. Was mit den selektier¬ 
ten Daten anschließend geschieht, ob sie auf dem Drucker 
oder Bildschirm ausgelistet werden und in welcher Form, 
ist jeweils von dem Listprogramm abhängig. Auch kann man 
über ein Selektierkriterium herausgefilterten Datensatz 
einer Datei in eine andere Datei ablegen, so daß man eine 
zweite Datei erhält, die vom Aufbau identisch ist mit der 
originalen Datei, jedoch nur Datensätze enthält, die dem 
gewünschten Selektierkriterium entsprechen. 

Um selektieren zu können, muß man zum Einen wissen, in 
welchem Feld der Datei das Selektierkriterium enthalten 
ist und zum anderen, wie das Selektierkriterium für dieses 
Feld aussehen soll. Hier ein Kurzprogramm zum Erfassen des 
Se lektierkriteriums: 


Selektierkriterium für Zeichenreihen erfassen: 


100 INPUT'WeIches Eeld enthält das Selektierkriterium';SK 

110 IF SK LT 1 OR SK GT AW THEN 100 

120 Ul$=' 1111111111222222222233333333334" 

130 U2$='1234567890123456789012345678901234567890" 
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140 PRINT LEFT$(U1$,LA(SK)) 

150 PRINT LEFT$(U2$,LA(SK)) 

160 GOSUB 'Cursor unter erstes Zeichen von U2$' 
170 GOSUB 'Input-Routine ’ 

180 FOR I = 1 TO FEN(IH$) 

190 IF MID$(IH$,1,1)=' "THEN 210 

200 VO=I: GOTO 230 

210 NEXT I 

220 GOSUB 'Fehler' 

230 FOR J = FEN(IH$) TO I STEP -1 
240 IF MID$(IH$,0,1) = '' "THEN 260 

250 FS=J-I+1: GOTO 270 

260 NEXT J 

270 SK$ = MID$(IH$,V0,LS) 


Variablen: 


SK$ = Selektierkriterium 

SK = zu selektierendes Element 

VO = ab Zeichen VO in Element 

SK des Feldes suchen 
LS = Anzahl der zu vergleichenden 
Zeichen ab Zeichen VO 
AW = Anzahl der Elemente des Feldes 

LA(I) = Länge eines Feldes 


Beschreibung: Gegeben sei ein Feld von Zeichenreihen A$(), 
wobei die entsprechenden LA( ) die maximale 
Länge einer Zeichenreiche angeben. Zunächst 
wird die Nummer des Feldes erfaßt, in dem 
das Selektierkriterium enthalten ist, ge¬ 
folgt von einer Plausibilitätsprüfung. Die 
Zeilen 120 bis 160 dienen zur Unterstützung 
der Manipulation am Bildschirm. Die in Zeile 
170 angesprochene Input-Routine liefert eine 
Zeichenreihe, die das Selektierkriterium an 
der richtigen Stelle (ggf. mit führenden und 
nachfolgenden Leerzeichen) enthält. 


In den Zeilen 180 bis 220 wird die Stelle 
des ersten Zeichens des Selektierkriteriums 
festgestellt, ggf* eine Fehlermeldung aus¬ 
gegeben. Im weiteren wird die Länge des Se¬ 
lektierkriteriums festgestellt und das 
Selektierkriterium extrahiert. 


In ähnlicher Weise kann das Erfassen für ein Selektieren 
nach Zahlen behandelt werden: 
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Selektierkriterium für Zahlen erfassen: 


100 INPUT"WeIches Feld enthält das Selektierkriterium";SK 

110 IF SK LT 1 OR SK GT AW THEN 100 

120 INPUT'Untergrenze ( M = Minimum ) ";UG$ 

130 IF UG$='M' THEN UG = -10**LA(SK) 

140 UG = VAL(UG$):IF UG = 0 THEN 120 

150 INPUT'Obergrenze ( M = Maximum ) ';0G$ 

160 IE OG$='M' THEN OG = 10**LA(SK) 

170 OG = VAL(OG$):IE OG = 0 THEN 150 


SK = zu selektierendes Element 
OG = Obergrenze 
UG = Untergrenze 

AW = Anzahl der Elemente des Eeldes 

Die Einträge der Datei sei - je Datensatz - 
in dem Eeld IH$() abgelegt. Beschrieben wer¬ 
den die Daten durch ein Feld AR$() für jedes 
Element des Datensatzes (E-Eloating Point, 
I-Integer) und LA(), das die maximale Größe 
der Zahl angibt. 

Beschreibung: Nach Abfrage der Nummer des zu selektieren¬ 
den EeIdelementes und der Plausibilitätsprü¬ 
fung werden die Unter- und Obergrenze des 
Selektierkriteriums erfaßt. Um auch das Mi¬ 
nimum und Maximum (Eingabe ’M') zuzulassen, 
werden die Daten zunächst als Zeichenreihe 
erfaßt und mittels der VAL-Eunktion umgewan¬ 
delt. 


Variablen: 


Umfeld: 


Eür Selektieren von Kalenderdaten sei hier auf Kapitel 1.6 
hingewiesen. 

Anhand der erfaßten Selektierkriterien läßt sich nun sehr 
einfach die eigentliche Selektion durchführen. Betrachten 
wir zunächst wieder die Zeichenreihen. 


Selektieren von Zeichenreihen: 

100 GOSUB 'Datei öffnen' 

110 GOSUB 'Zeiger auf ersten Datensatz positionieren' 
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120 'lies AR aus erstem Datensatz der Datei’ 

130 FOR I = 2 TO AR 

140 GOSUB 'Zeiger auf i-ten Datensatz' 

150 GOSUB 'Datensatz in Feld IH$(AW) einiesen’ 

160 IF MID$(IH$(SK),VO,LS)=SK$ TUEN GOSUB 'Auswerten' 
170 NEXT I 

180 GOSUB 'Datei schließen' 


Beschreibung: Da es uns hier hauptsächlich um Selektieren 
geht, haben wir die 'Rahmenhandlung' in 
entsprechende Unterprogramme verwiesen. Wenn 
wir annehmen, daß die Anzahl zu prüfender 
Datensätze einer Datei im ersten Datensatz 
steht, so muß dieser zunächst ausgelesen 
werden. Die Anzahl der Records soll sich 
dann in der Variablen AR befinden. 

In einer Schleife bis zu diesem Wert wird 
dann jeweils der Zeiger auf den Datensatz 
gesetzt, der Datensatz selbst eingelesen und 
dann der Vergleich durchgeführt. Was in dem 
Unterprogramm 'Auswerten' geschieht, be¬ 
stimmen Sie selbst. 


Analog erfolgt die Behandlung von Zahlen. 


Selektieren nach Zahlbereichen 


100 GOSUB 'Datei öffnen' 

110 GOSUB 'Zeiger auf ersten Datensatz positionieren' 
120 'lies AR aus erstem Datensatz der Datei' 

130 EOR I = 2 TO AR 

140 GOSUB 'Zeiger auf i-ten Datensatz’ 

150 GOSUB 'Datensatz in Eeld IH$(AW) einiesen' 

160 IE VAL(IH$(SK)) LT UG TUEN 180 

170 IE VALUH$(SK)) GT OG TUEN 180 

180 GOSUB 'Auswerten' 

190 NEXT I 

200 GOSUB 'Datei schließen' 


Etwas schwieriger wird die Sache, wenn man zwei oder mehr 
Selektierkriterien für einen Datensatz hat. Hier ein Er¬ 
fassungsprogramm für die Selektierkriterien und dann das 
zugehörige Selektiermodul, sofern die Selektierkriterien 
mit UND verknüpft sind. Zuerst auch wieder das Erfassen 
der Kriterien für Zeichenreihen: 



40 


Kapitel 1 


Selektierkriterium für Behrfachen Stringvergleich er¬ 
fassen: 


100 INPUT'Anzahl der Selektierkriterien";AS 

110 DIM SK(AS) : DIM SK$(AS) : DIM VO(AS) : DIM LS(AS) 

120 FOR I = 1 TO AS 

130 PR INT'WeIches Feld enthält das ';I;'-te 

140 PRINT'Selektierkriterium'; 

150 INPUT SK(I) 

160 IF SK(I) LT 1 OR SK(l) GT AW TUEN 130 

170 Ul$=' 1111111111222222222233333333334' 

180 U2$='1234567890123456789012345678901234567890' 

190 PRINT LEFT$(U1$,LA(SK(I))) 

200 PRINT LEFT$(U2$,LA(SK(I))) 

210 GOSUB'Cursor unter erstes Zeichen von U2$' 

220 GOSUB 'Input-Routine’ 

230 FOR 0 = 1 TO LEN(IH$) 

240 IF MID$(IH$,J,1)=' 'TUEN 260 

250 V0(I)=J: GOTO 280 

260 NEXT 0 

270 GOSUB 'Fehler' :REM Kein Selektierkriterium erfasst 

280 FOR K = LEN(IH$)T0 0 STEP -1 

290 IF MID$(IH$,K,1)=' 'TUEN 310 

300 LS(l)=K-0+l: GOTO 320 

310 NEXT K 

320 SK$(I) = MID$(IH$,V0(I),LS(I)) 

330 NEXT I 


Variablen: 


AS 

SK$(AS) 

SK(AS) 

VO(AS) 

LS(AS) 


Anzahl der Kriterien 
Selektierkriterien 
zu selektierende Elemente 
ab Zeichen VO in Element 
SK(AS) des Feldes suchen 
zu vergleichenden Zeichen ab 
Zeichen VO(AS) 


Beschreibung: Im Prinzip wird hier nichts anderes gemacht, 
als die für das Selektieren wichtigen Va¬ 
riablen als Feld anzulegen und das Erfassen 
durch eine Schleife laufen zu lassen. Die 
Rahmenbedingungen sollen den vorher genan¬ 
nten gleich sein. 



Allgemeine Routinen 


41 


Selektierkriterium für mehrfachen Zahlenvergleich er¬ 
fassen: 


100 INPUT'Anzahl der Selektierkriterien';AS 
110 DIM SK(AS) : DIM UG(AS) : DIM OG(AS) 

120 FOR I = 1 TO AS 

130 PRINT’WeIches Feld enthält das ■;I;'-te ’ ; 

140 PRINT"Selektierkriterium'; 

150 INPUT SK(I) 

160 IF SK(I) LT 1 OR SK(l) GT AW TUEN 130 
170 INPUT"Untergrenze ( M = Minimum ) ';UG$ 

180 IF UG$ = 'M" TUEN UG(l) = -10**LA( SK( I)) 

190 UG(I) = VAL(UG$):IE UG(l) = 0 TUEN 170 
200 INPUT"Obergrenze ( M = Maximum ) ';0G$ 
210 IE OG$="M' TUEN OG(l) = 10**LA(SK(l)) 

220 0G(I) = VAL(OG$):IE OG(l) = 0 TUEN 200 

230 NEXT I 


Variablen: 


AS = Anzahl der Kriterien 

SK(AS) = zu selektierende Elemente 
OG(AS) = Obergrenzen 
UG(AS) = Untergrenzen 


Hier nun das Selektieren nach bekanntem Schema: 


Stringvergleich (mehrfach) 

100 GOSUB 'Datei öffnen’ 

110 GOSUB 'Zeiger auf ersten Datensatz positionieren’ 

120 'lies AR aus erstem Datensatz’ 

130 EOR I = 2 TO AR 

140 GOSUB 'Zeiger auf i-ten Datensatz' 

150 GOSUB 'Datensatz in Eeld IH$(AW) einiesen' 

160 EOR 0 = 1 TO AS : REM Kriterienschleife 

170 IE MID$(IH$(SK(J)),V0(J),LS(J))LTGTSK$(0) THEN 190 

180 NEXT 0 

190 GOSUB ’Auswerten' 

200 NEXT I 

210 GOSUB 'Datei schließen' 
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Zahlenvergleich (mehrfach) 

100 GOSUB 'Datei öffnen' 

110 GOSUB 'Zeiger auf ersten Datensatz positionieren' 
120 'lies AR aus erstem Datensatz' 

130 FOR I = 2 TO AR 

140 GOSUB 'Zeiger auf i-ten Datensatz' 

150 GOSUB 'Datensatz in Feld IH$(AW) einiesen' 

160 FOR 0 = 1 TO AS 

170 IF VAL(IH$(SK(J))) LT UG(j) TUEN 200 

180 IF VAL(IH$(SK(J))) GT OG(j) THEN 200 

190 NEXT J 

200 GOSUB 'Auswerten' 

210 NEXT I 

220 GOSUB 'Datei schließen' 


Gemischte Verfahren (gleichzeitig Zahlen und Zeichenrei¬ 
hen) sollen an dieser Stelle nicht besprochen werden, da 
Sie aus obigem Beispiel sehr einfach zusammenzusetzen 
sind. 

Eine Verknüpfung von Selektierkriterien mit UND und ODER, 
und einer Verwendung von Klammern bei der Vergabe von 
Selektierkriterien läßt sich nur sehr aufwendig in all¬ 
gemeiner Form programmieren. Da diese Fälle meist Spezial¬ 
fälle sind, empfiehlt sich hier eine individuelle Program¬ 
mierung . 

Im Gegensatz zu den Möglichkeiten, die das Selektieren bei 
der DatenverwaItung bringt, ist der Aufwand des Program- 
mierens relativ gering. Werden die selektierten Daten in 
einer extra Datei gespeichert, so steht auch einem an¬ 
schließenden Sortiervorgang der selektierten Daten nichts 
im Wege. 


1.5 Mischverfahren 


Ein beim Mikro-Computer seltener auftretendes Problem, ist 
das Sortieren von Daten durch Mischen, da im allgemeinen 
die Datenbestände nicht so groß sind und Magnetbandgeräte 
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nicht verwendet werden. Arbeitet man jedoch mit Kassetten¬ 
recordern und hat man Daten zu sortieren, die nicht direkt 
im Rechner sortiert werden können, so können die nachfol¬ 
genden Verfahren dazu herangezogen werden. Entstanden sind 
sie zu Anfang der Datenverarbeitung als eine Dialogbear¬ 
beitung noch nicht gebräuchlich war. Die nachfolgenden 
Verfahren sind historisch auf der Stapelverarbeitung 
(BATCH-Prozessing) begründet. 

Bei dem Mischverfahren wird davon ausgegangen, daß nur ein 
kleinerer Teil der Daten im Arbeitsspeicher bearbeitet 
werden kann, als auf dem externen Speicher, Kassettenre¬ 
corder bzw. Bandgeräte zur Verfügung stehen. Aber die Ver¬ 
fahren können auch angewendet werden, wenn maximale Datei¬ 
größen überschritten werden, bzw. die Kapazität einer Dis¬ 
kette für die Daten nicht ausreicht. Trotzdem kann man an¬ 
nehmen, daß die Daten als kontinuierlicher Fluß (ggf. vor¬ 
sortiert) zur Verfügung stehen, was durch Programme bzw. 
das Betriebssystem gesteuert werden kann. 

Die Grundeinheit dieses Verfahrens wird Lauf genannt, und 
einen Lauf wollen wir als maximale Sortierfolge von Daten 
aus einer Datenfolge betrachten. Als Ausgangspunkt nehmen 
wir an, daß auf n-Bändern A(n)-Läufe vorhanden sind, wobei 
die Anzahl der Elemente in jedem Lauf auch verschieden 
sein darf. Festgestellt wird weiterhin, daß mehrere Ausga¬ 
be- bzw. Eingabemedien vorhanden sind (z.B. mindestens 
zwei Diskettenlaufwerke oder zwei Kassettenrecorder). Ist 
dies nicht der Fall, so muß man diese verschiedenen Aus¬ 
gabemedien im Arbeitsspeicher simulieren, was natürlich 
die maximale Größe der einzelnen Läufe beeinträchtigt. 

Der Ablauf stellt sich dann wie folgt dar: Man liest von 
allen Eingabemedien jeweils den ersten Datensatz und ver¬ 
gleicht diese Datensätze untereinander. Dann wählt man den 
Kleinsten aus und schreibt diesen auf das Ausgabeband. Von 
dem Band, wo das ausgegebene Element herrührte, liest man 
nun den nächsten Datensatz ein. Dann verfährt man mit den 
eingelesenen Datensätze wie vorher und sucht sich das 
kleinste Element heraus. Ist ein Lauf zu Ende, so wird 
dieses Band übergangen, bis alle Läufe zu Ende sind. Auf 
diese Weise entsteht ein Ausgabeband mit einem wesentlich 
längeren Lauf, der gegebenenfalls wieder gestückelt werden 
muß. Dieses Verfahren wird sooft wiederholt, bis alle 
einzulesenden Bänder verarbeitet sind. 

Sind alle Eingabebänder abgearbeitet, so vertauscht man 
die Ausgabebänder mit den Eingabebändern. Auf den neuen 
Eingabebändern stehen dann Läufe mit größerer Länge. Mit 
jedem Tausch Ausgabebänder gegen Eingabebänder werden die 
Läufe größer und die Anzahl der Läufe kleiner. Dies wird 
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solange fortgesetzt, bis nur noch ein Lauf existiert, der 
dann die komplette sortierte Datenfolge beinhaltet. Bild 
1.5 veranschaulicht das Verfahren. 


Eingabe; Band 1 Band 2 Band 3 



Bild 1.5-1 ; Datenbestand vor Mischvorgang 


Eingabe: Band 1 Band 2 Band 3 



Bild 1.5-2 : Datenbestand nach erstem Mischvorgang 
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Eingabe: Band 1 


Band 2 


Band 3 



Bild 1.5-5 : Datenbestand nach viertem Mischvorgang 


Eingabe: Band 1 


Band 2 


Band 3 



Bild 1.5-6 


Datenbestand nach fünftem Mischvorgang 
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Eingabe: Band 1 Band 2 Band 3 



Bild 1.5-7 : Datenbestand nach dem neunten Mischvongang. 

Auf dem Ausgabeband befindet sich nun ein 
kompletter Lauf, und alle Eingabebänder be¬ 
ginnen mit einem neuen Lauf. Das Programm 
wird jetzt erneut aufgerufen, sofern auf dem 
Ausgabeband noch genügend Platz ist. 


Ein Beispielprogramm zum Mischen mit drei Eingabemedien 
und einem Ausgabemedium könnte in Pseudo-Basic wie folgt 
aussehen: 


100 GOSUB 'Dateien öffnen’ 
110 N=3 

120 DIM VK$(N) 
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130 DIM LE(N) 

140 FOR 1=1 TO N 
150 INPUT#I,VK$(I) 

160 NEXT 

170 VK$="ZZZZZZ" 

180 LF=0 

190 FOR 1=1 TO N 

200 IF FE(I) GT 0 THEN 230 

210 LF=1 

220 IF VK$(I) LT VK$ THEN VK$=VK$(l) : WO=I 

230 NEXT 

240 PRINT#A,VK$ 

250 IF LF=0 THEN RUN 
260 AL$=VK$ 

270 INPUT#WO,VK$(WO) 

280 IF VK$(WO) LT AL$ THEN LE(W0)=1 
290 GOTO 170 


Beschreibung: Nachdem alle benötigten Dateien geöffnet 

sind, wird die Anzahl der Eingabestationen 
erfaßt. Für jede Eingabestation wird dann 
jeweils ein Feldelement zur Aufnahme des 
aktuellen Vergleichelementes und zur Kenn¬ 
zeichnung des Laufendes definiert. 

Dann wird von jeder Eingabestation das erste 
Element gelesen. Weitere Vorarbeiten sind 
das Besetzen des Vergleichskriteriums mit 
einem maximalen Wert und das Definieren des 
allgemeinen Endes (aller Läufe). 

Ab Zeile 190 werden die aktuellen Elemente 
aller Läufe geprüft. Ist ein Lauf bereits 
beendet, so wird er übergangen. Sind alle 
Läufe beendet, so ist LF beim Verlassen der 
Schleife '0', sonst '1‘. In Zeile 240 wird 
das kleinste gefundene Element auf das Aus¬ 
gabeband übertragen, anschließend geprüft, 
ob alle Läufe beendet sind und gegebenen¬ 
falls ein neues Element eingelesen. Dies muß 
natürlich aus dem Lauf genommen werden, wo 
das eben ausgegebene herstammt. 

Da vielleicht auf einem Eingabeband mehrere 
Läufe hintereinander liegen, wird in Zeile 
280 geprüft, ob der aktuelle Lauf zu Ende 
ist und entsprechend der Merker LF(WO) 
gesetzt. 
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Das Erzeugen von n Bändern mit A(n)-Läufen kann auf Grund 
der in Kapitel 1.3 beschriebenen Sortierverfahren durchge¬ 
führt werden, indem man zum Beispiel 500 Datensätze ein¬ 
liest, diese mit einem internen Sortierverfahren sortiert 
und dann auf ein Band schreibt. Mit dem internen Sortieren 
sollte man möglichst die gesamte Arbeitsspeicherkapazität 
des Rechners ausnutzen, um die Anzahl der Läufe klein zu 
halten. 

Dieses Verfahren kann auch mit Disketten angewendet wer¬ 
den, da z.B. sequentielle Dateien auch als 'Eingabebänder' 
verstanden werden können. Dies trifft außerdem für die 
sequentielle Bearbeitung von Direktzugriffsdateien zu. 
Haben Sie z.B. - wegen der geringen Diskettenkapazität - 
mehrere Disketten mit gleichartigen Daten, so wurde hier 
ein Weg aufgezeigt, auch diese Daten zu sortieren. 


1.6 Rund ums Datum 


Als 'vierten Variablentyp' kann man die Kalenderdaten (ne¬ 
ben Fließkommazahlen, Integer und Zeichenreihen) bezeich¬ 
nen, obwohl sie in der Regel als Zeichenreihen gespeichert 
werden. Aber gerade im kommerziellen Bereich kommen sie 
sehr häufig vor, und erfordern immer eine Spezialbehand¬ 
lung, dies gilt sowohl für die Plausibilitätsprüfung, als 
auch für das Sortieren, da meist die Daten nach Tag/Monat/ 
Jahr bearbeitet werden, aber nach Jahr/Monat/Tag sortiert 
werden soll. In den folgenden Kapiteln soll als computer¬ 
gerechte Eingabe immer ein Kalenderdatum in der Form 
TT.MM.JJ vorliegen, wobei TT den aktuellen Tag (ggf. mit 
führender '0'), MM den Monat (auch ggf. mit führender '0') 
und JJ die letzten beiden Ziffern des Jahres darstellen 
sollen. 


1.6.1 Plausibilitätsprüfung 


Bei der Verarbeitung von Kalenderdaten kommt der Plausibi¬ 
litätsprüfung eine entscheidende Bedeutung zu. Die Rich¬ 
tigkeit der Eingabe eines Kalenderdatums läßt sich jedoch 
nur innerhalb der zulässigen Tage prüfen. Innerhalb dieser 
Grenzen ist eine Plausibilitätsprüfung nur in Spezialfäl- 
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len möglich; deshalb wollen wir uns hier auf die allge¬ 
meine Prüfung beschränken. 

Geprüft werden die Eintragungen für Tag, Monat und Jahr 
jeweils einzeln. Zur Prüfung der gültigen Tageseingabe 
anhand des Monates soll ein Hilfsfeld mit den maximalen 
Tagen eines Monates definiert werden. 

100 DATA 31,28,31,30,31,30,31,31,30,31,30,31 

110 DIM MM%U2) : FOR I = 1 TO 12 : READ MM%(l) : NEXT 

Die Prüfung für einen gültigen Monat kann nur auf 'größer 
12' und 'kleiner 1' erfolgen, und eine Prüfung des Jahres 
muß nicht immer sinnvoll sein und kann in der Regel auch 
nur gewünschte Jahresbereiche ausklammern. Wir wollen da¬ 
von ausgehen, daß kein früheres Jahr, als das des aktuel¬ 
len Tagesdatums (DA$ in der Form: TT.MM.JJ ) eingegeben 
werden darf. Soll gleiches auch für Monat und Tag gelten, 
sind nur entsprechende zusätzliche Abfragen einzubauen. 

Die einzige Schwierigkeit wäre noch der 29.Februar eines 
Schaltjahres, der als Tag zulässig ist, bei allgemeiner 
Vorgehensweise jedoch nicht akzeptiert würde. Das zu prü¬ 
fende Datum soll in der Form TT.MM.JJ in der Variablen DP$ 
abgespeichert sein. Die Prüfroutine soll als Unterprogramm 
angelegt sein, und in der Variablen WF (Wahr/Falsch) eine 
'0' enthalten, wenn das zu prüfende Datum korrekt ist, und 
eine '1', wenn ein Fehler festgestellt wurde (FT less 
than/ kleiner; GT greater than/größer; FE less or equal/ 
kleiner gleich; GE greater or equal/größer gleich): 

1000 SJ = 0 

1010 T = VAF(FEFT$(DP$,2)) :REM Tageszahl festlegen 
1020 M = VAF(MID$(DP$,4,2)) :REM Monatszahl festlegen 
1030 J = VAF(RIGHT$(DP$,2)) :REM Jahreszahl festlegen 
1040 JD= VAF(RIGHT$(DA$,2)) :REM Jahreszahl d. Tagesdatums 
1050 IF J FT JD THEN 1120 
1060 IF J/4 - INT(J/4)=0 THEN SJ = 1 

:REM Schaltjahr liegt vor 
1070 IF M = 2 AND T = 29 AND SJ = 1 THEN 1110 

1080 IF M = 2 AND T = 29 AND SJ = 0 THEN 1120 

1090 IF M FT 1 OR M GT 12 THEN 1120 

1100 IF T FT 1 OR T GT MM%(M) THEN 1120 

1110 WF = 0 : RETURN 
1120 WF = 1 : RETURN 


Darf das Prüfdatum nicht vor dem Tagesdatum liegen, so ist 
einzufügen: 


1041 MD = VAF(MID$(DA$,4,2)) 
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1042 TD = VAL(LEFT$(DA$,2)) 

1101 IF 0 = OD AND M FT MD THEN 1120 

1102 IF J = OD AND M = MD AND T FT TD THEN 1120 

Gegebenenfalls sind die Variablen im Unterprogramm durch 
andere zu ersetzen, wenn sie im Hauptprogramm an anderer 
Stelle Vorkommen (z.B. 0 als Faufvariable in einer FOR... 
NEXT-Schleife ). 

Die Prüfung auf Schaltjahre wurde in der einfachsten Form 
vorgenommen, was im Normalfall ausreicht. Ist eine genau¬ 
ere Berechnung der Schaltjahre erforderlich, so sollte man 
diese in ein eigenes Unterprogramm bringen, falls die ma¬ 
ximal zulässige Unterprogramm-Hierarchie nicht über¬ 
schritten wird. In den Bahren 1700,1800,1900 führt obige 
Berechnung auf ein Schaltjahr, obwohl diese keine Schalt¬ 
jahre sind. Von den vollen Jahrhunderten sind nur diese 
Schaltjahre, deren zwei ersten Ziffern durch vier teilbar 
sind (was im Jahr 4900 auch nicht mehr stimmt). 

Weiterhin ist bei Datums-Berechnungen, die mehr als 400 
Jahre zurückliegen, darauf zu achten, daß auf den 4.10. 
1582 der 15.10.1582 folgt, wenn man vom Gregorianischen 
Kalender ausgeht. 


1.6.2 Datum platzsparend speichern 


Bei Mikrocomputern (und Home-Computern im besonderen) ist 
in der Regel der externe Speicherplatz (Floppy-Disk) ein 
großes Problem. Wenn viele Kalenderdaten gespeichert 
werden müssen, so kann man mit meinem kleinen Trick den 
Platzbedarf pro Kalenderdatum auf ca. 37 % verringern. 

Der Rechner speichert sich alle Zeichen im ASCII-Code, 
d.h. als Binärzahl. Ein ’a’ wird z.B. als '65' (01000001) 
gespeichert. Da auch Steuerzeichen im ASCII-Code gespei¬ 
chert werden (z.B. Bildschirm löschen), ist hier jedoch 
Vorsicht geboten. Wir wollen den Buchstabenbereich 65 (a) 
bis 90 (z) und die angrenzenden Sonderzeichen benutzen, 
die auch vollkommen ausreichen. 

Gegeben sei ein Datum der Form TT.MM.JJ in der Variablen 
DA|. Weiter bedeuten: 

T = VAF(MID$(DA$,1,2)) : Tageszahl 
M = VAL(MID|(DA$,4,2)) : Monatszahl 
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J = VAL(MID$(DA$,7,2)) : Jahreszahl (ohne '19') 

T kann einen Wert zwischen 1 und 31 annehmen. Wenn wir nun 
zu T 65 addieren, liegt T im o.a. Bereich. M kann einen 
Wert zwischen 1 und 12 annehmen, und bei J kann man davon 
ausgehen, daß es im Bereich 70 bis 95 liegt. 

Das gekürzte Datum wollen wir in DK$ ablegen und erhalten 
hierfür: 

DK$ = CHR$(T+65)+CHR$(M+65)+CHR$(J) 


Beispiel: Der 15.05.84 wird gespeichert als 'pft' mit 


ASC Cp") = 80 (65+15) 
ASC ("f) = 70 (65+5) 
ASC (’f) = 84 


Entschlüsselt wird das Ganze mit: 


T = ASC (LEFT$(DK$,1)) - 65 
M = ASC (MID$(DK$,2,1)) - 65 
J = ASC (RIGHT$(DK$,1) 

DA$ = RIGHT$(STR$(T) ,2)+''.''+RIGHT$(STR$(M),2)+’. " 
+RIGHT$(STR$(J),2) 

In einer Auftragsbearbeitung, in der Bestelldatum, Liefer¬ 
datum, Rechnungsdatum und Zahlungsdatum gespeichert wer¬ 
den, reduziert sich der Platzbedarf von 32 Byte je Auftrag 
auf 12 Byte je Auftrag. Bei 1000 zu speichernden Aufträgen 
sind dies 20 KByte. 


1.6.3 Nach Datum sortieren 


Eine weitere Besonderheit des Kalender-Datums ist der Sor¬ 
tiervorgang. Zeichenreihen werden alphanumerisch sortiert, 
und Dezimalzahlen sowie ganze Zahlen (Integer) werden 
ihren Werten nach sortiert. Beides ist mit den üblichen 
BASIC-Befehlen und den Vergleichsoperatoren 'Größer', 
'Kleiner' und 'Gleich' leicht zu bewerkstelligen. Sollen 
jedoch Kalenderdaten sortiert werden, so ist eine Sortie- 
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rung nach Jahr/Monat/Tag erforderlich - wenn man von Aus¬ 
nahmefällen absieht. Die gleichen Schwierigkeiten treten 
beim Selektieren von Kalenderdaten auf, wenn nicht nach 
bestimmten Daten gesucht wird (Operator: =) sondern nach 
Zeiträumen (Operatoren 'Größer' und 'Kleiner'). 

Normalerweise muß dazu jedes Kalenderdatum umgruppiert 
werden wie in folgenden Beispielen: 

(1) DN$ = RIGHT$(DA$,2) + MID$(DA$,3,4) + LEFT$(DA$,2) 
oder 

(2) DN$ = RIGHT$(DA$,2) + MID$(DA$,4,2) + LEFT$(DA$,2) 

Das Ergebnis z.B für den 10.09.84 wäre nach (1) '84.09.10' 
und nach (2) '840910', wobei das zweite Ergebnis - für den 
Sortiervorgang sehr wichtig - platzsparender ist, und auch 
als Zahl sortiert werden kann. 

Nützt man die vorher beschriebene platzsparende Spei¬ 
cherung des Datums in 3 Byte aus, und ersetzt man das 
Zusammenstellen der Kurzspeicherform durch 

DK$ = CHR$(J) + CHR$(M+65) + CHR$(T+65) 

und das Dekodieren durch 

T = ASC(RIGHT$(DK$,l))-65 
M = ASC(MID$(DK$,2,l))-65 
0 = ASC(LEFT$(DK$,1)) 

so wird das Datum sozusagen rückwärts gespeichert, und 
kann in seiner Kurzform wie eine normale Zeichenreihe 
sortiert werden. Der 15.05.82 - um das alte Beispiel 
aufzugreifen - würde gespeichert als ’rfp'. 


1.6.4 Selektieren durch Vergleich 


Sehr häufig werden auch bestimmte Datensätze gesucht, die 
ein Kalenderdatum erhalten, das in einem gewissen Zeitraum 
liegen soll (z.B. Rechnungsdatum zwischen 01.12.83 und 
31.12.83). Dazu wollen wir in einem BeipieIprogrammstück 
zwei Hilfsvariablen Vl$ und V2$ verwenden, wobei in Vl$ 
das ältere und in V2$ das neuere Datum in der gleichen 
Form wie bei DA$ gespeichert sein sollen. 



54 


Kapitel 1 


Das beschriebene Unterprogramm muß beim Durchsuchen einer 
Datei mit jedem Datensatz neu aufgerufen werden und lie¬ 
fert als Ergebnis in 'JN' den Wert '1', wenn das Datum im 
gesuchten Bereich liegt, andernfalls '0'. Wird nur nach 
einem Zeitraum vor oder nach einem Datum gefragt, so sind 
die entsprechenden Anweisungen für den anderen Fall weg¬ 
zulassen, oder man kann das Vergleichsdatum auf 00.00.00 
bzw. 31.12.99 setzen. 


100 JN = 0 

110 T = VAL(LEFT$(DA$,2)) 

120 M = VAL(MID$(DA$,4,2)) 

130 J = VAL(RIGHT$(DA$°2)) 

140 TI = VAL(LEFT$(V1$,2)) 

150 Ml = VAL(MID$(V1$,4,2)) 

= VAL(RIGHT$(V1$,2)) 

= VAL(LEFT$(V2$,2)) : 

= VAL(MID$(V2$,4,2)) 

= VAL(RIGHT$(V2$,2)) 

J LT J1 THEN RETURN : 
J GT J2 THEN RETURN : 
J = J1 AND M LT Ml THEN 

J = J2 AND M LT M2 THEN 

J = J1 AND M = Ml AND T 

J = J2 AND M = M2 AND T 


160 J1 
170 T2 
180 M2 
190 J2 
200 IE 
210 IE 
220 IE 
230 IE 
240 IE 
250 IE 
260 JN 


= 1 


270 RETURN 


REM Tagesdatum auseinander- 
REM ziehen, man kann aber 
REM auch mit den Strings 
REM arbeiten 

REM älteres Vergleichsdatum 
REM neueres Vergleichsdatum 


REM Jahr zu alt 
REM Jahr zu jung 
RETURN 
RETURN 

LT TI THEN RETURN 
GT T2 THEN RETURN 


1.7 Boolsche Operatoren 


Neben den Vergleichsoperatoren 'gleich', 'kleiner', 'grö¬ 
ßer', 'kleiner gleich', 'größer gleich' und 'ungleich' 
sind in den verschiedenen Programmiersprachen und deren 
Dialekten noch mindestens zwei weitere Operatoren, soge¬ 
nannte boolsche Operatoren, implementiert : AND und OR um 
logische UND oder ODER-Verknüpfungen vornehmen zu können. 
Häufig (auch beim Commodore 64) findet sich auch noch die 
Negation: NOT. 

Sehr oft werden diese Operatoren in Verbindung mit den 
Vergleichsoperatoren bei Plausibilitätsprüfungen oder son¬ 
stigen bedingten Abfragen verwendet. Die häufigste Plausi¬ 
bilitätsprüfung ist wohl die Abfrage einer Eingabe, ob ein 
JA ('j' oder 'J') oder ein NEIN ('n' oder 'N') vorliegt. 
Ohne boolsche Operatoren sähe eine solche Plausibilitäts¬ 
prüfung wie folgt aus: 
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100 IF A$ = 'j" THEN GOTO 'Ja - Teil' 

110 IF A$ = ’J" THEN GOTO 'Ja - Teil' 

120 IF A$ = "n" THEN GOTO 'Nein - Teil' 

130 IF a| = "N" THEN GOTO 'Nein - Teil' 

140 ' Eingabefehler ' 

Bei Verwendung von boolschen Operatoren könnte man 
schreiben: 

100 IF A$ = "J" OR A$ = "J" THEN GOTO 'Ja - Teil' 

110 IF A$ = 'n' OR A$ = "N" THEN GOTO 'Nein - Teil' 

120 ' Eingabefehler ' 

Wenn man die Plausibilitätsprüfung ohne Verzweigung 
alleine betrachtet, kann man schreiben (NE für 
ungleich/not equal): 

100 IF A$ NE "j" AND A$ NE 'J' AND A$ NE "n" AND A$ NE ’N" 
THEN GOTO 'Fehler' 

Schon aus diesen kleinen Beispielen wird ersichtlich, 
welche Funktion die boolschen Operatoren haben. 

Ein weiteres Einsatzgebiet der boolschen Operatoren ist 
die bitweise Bearbeitung von Daten (z.B. das Ausblenden 
verschiedener Bits, wie es für Grafik und Sprites benötigt 
wird). Dazu muß man jedes Zeichen oder jede Zahl in ihr 
Bitmuster zerlegen, dem eine Zahl zwischen 0 und 255 ent¬ 
sprechend dem Bitmuster zugeordnet werden kann. Dazu wer¬ 
den die Stellenwerte jedes einzelnen Bits wie folgt ad¬ 
diert, wie auf der nächsten Seite dargestellt. 

Die Zahlen werden den Bits von hinten nach vorne zugeord¬ 
net, d.h. die letzte Stelle entspricht 2 hoch 0 und dem¬ 
entsprechend die erste Stelle 2 hoch 7. 


Beispiel: 


7 6 

2 2 

128 64 


5 4 

2 2 

32 16 


3 2 

2 2 

8 4 


1 0 
2 2 

2 1 


10 10 0 


entspricht dem Wert 128+32+4 = 164. 


10 0 
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0 


für 16-Bit-Darste1lung: 8 


2 

= 1 

2 = 

256 

1 


9 


2 

= 2 

2 = 

512 

2 


10 


2 

= 4 

2 = 

1024 

3 


11 


2 

= 8 

2 = 

2048 

4 


12 


2 

= 16 

2 = 

4096 

5 


13 


2 

= 32 

2 = 

8192 

6 


14 


2 

= 64 

2 = 

16384 

7 


15 


2 

= 128 

2 = 

32768 


Summe 255 ( wenn alle 8 Bits gesetzt sind ) 


Zwei mit AND verknüpfte Werte ergeben den Zahlwert der 
Summe aller Bits, die in beiden Werten verkommen: 


Beispiel: 

A = 164 


B 

= 36 

( 

32 

A 

AND B 

= 

36 

A 

= 164 



B 

= 72 

( 

64 

A 

AND B 

= 

0 


( 10100100 ) 

4 ) ( 00100100 ) 

( 00100100 ) 

( 10100100 ) 

8 ) ( 01001000 ) 

( 00000000 ) 


Zwei mit 


OR verknüpfte Werte ergeben den Zahlwert der 
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Summe aller Bits , die in dem 
Vorkommen: 


Beispiel: 

A = 164 
B = 36 


A OR B = 164 

A = 164 
B = 72 

A OR B = 236 


einen oder dem anderen Wert 

( 10100100 ) 

( 00100100 ) 

( 10100100 ) 

( 10100100 ) 

( 01001000 ) 

( 11101100 ) 


Arbeitet man mit Zeichen, so läßt sich das Bitmuster über 
den Umweg der Funktion ASC(X$) ermitteln. Diese Funktion 
liefert den zu dem Zeichen gehörenden ASCII-Zahlwert, der 
zwischen 0 und 255 liegt, worauf wieder auf das Bitmuster 
geschlossen werden kann. 

In den folgenden Programmen - besonders Kapitel 2.2 - 
werden Sie viele Beispiele für die Verwendung von bool- 
schen Operatoren finden. 


1.8 Führende Nullen anfügen 


Führende Nullen sind in der Regel zwar nicht üblich, je¬ 
doch können Sie bei Verwendung von Zahlen als Auftrags¬ 
nummer oder Rechnungsnummer durchaus ihren Sinn haben, um 
das Voranstellen von Ziffern zu vermeiden. 


Im folgenden bedeuten: 

A = natürliche Zahl (größer 0, ohne Dezimalstellen) 
N = gewünschte Gesamtzahl der Ziffernstellen 


100 A$ = STR$(A) 

110 IFLEN(A$) GT N+1 TUEN PRINT "FEHLER’ 
120 A$ = RIGHT$(’000000000’+MID$(A$,2) 
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Es ist zu beachten, daß nicht nur führende Nullen anzu¬ 
fügen sind, sondern auch das (i.a. positive) Vorzeichen 
eleminiert werden muß, um keine Lücke zu erhalten. 


1.9 Eliminieren anhängender Leerzeichen 


In der kommerziellen Datenverarbeitung werden häufig 
Direktzugriffsdateien verwendet, die nur eine konstante 
Datensatzlänge zulassen. Um diese zu erreichen, und um 
gleichartige Einträge immer an der gleichen Stelle in¬ 
nerhalb des Datensatzes zu finden, werden in der Regel 
(Name, Vorname, Straße, etc) mit Leerzeichen aufgefüllt, 
z. B. mit: 

100 H$ = ■ 

110 NA$ = LEFT$(NA$+H$,25) 

Will man nun Name und Vorname in der gleichen Zeit 
drucken, etwa mit 

PRINT NA$;‘ , ' ;VN$ 

so erhält man vielleicht 

MÜLLER ,PETER 

was sicherlich nicht beabsichtigt ist. Dies kann man mit 
einer kleinen Schleife umgehen: 

100 FOR I=LEN(NA$) TO 1 STEP -1 
200 IE RIGHT$(NA$,1)=’ ‘ THEN 

NA$ = LEFT$(NA$,LEN(NA$)-1):NEXT 
300 PRINT NA$;',’;VN$ 


1.10 Kaufmännische Zahldarstellung 


Bei Computern, die in ihrer Programmiersprache kein 'PRINT 
USING' aufweisen oder bei denen formatiertes Drucken nicht 
möglich ist, ergibt sich immer das Problem der kaufmänni¬ 
schen Zahldarstellung, da der Computer mit einem Dezimal¬ 
punkt statt mit Dezimalkomma arbeitet, keinen Tausender- 



Allgemeine Routinen 


59 


Punkt kennt und in der Regel anhängende Nullen unter¬ 
drückt. 


In 'A' soll eine bereits gerundete Zahl in Computerdar¬ 
stellung abgelegt sein, die in eine Zeichenreihe ' A$' 
umgewandelt werden soll, die die kaufmännische Zahldar¬ 
stellung enthält. Dazu gehen wir wie folgt vor: 


100 = STR^:(A> <209> 
110 VZ^: = LEFT^: (A^:, 1 ) <207> 
120 A^: = RIGHTS (A^:,LEN (A^:)-1 ) <143> 
130 Y = ABS(A) <213> 
140 IF Y<1 AND Y>0 THEN A^: = "0"+A^: :;i26> 
150 IF Y-INT(Y) < 0.001 THEN AT=AT+".00" : GGTO 170 <032> 
160 IF Y*10 - INT(Y*10) < 0.001 THEN AT = AT+"0" :;i39> 
170 AT = RIGHTTC "+AT,14) <191> 
180 AT=LEFTT(AT,11)+","+RIGHTT(AT,2) <120> 
190 IF Y>999. 99 THEN AT=LEFTT (AT, 8)+" . "+RIGHTT: (AT , 6) <229> 
200 IF Y>999999.99 THEN AT=LEFTT(AT,5)+"."+RIGHTT(AT 

,10) <194> 
210 AT = AT+9ZT <204> 
220 PRINT AT <218> 
230 RETURN ::116> 


In Zeile 100 wird A$ mit dem Wert von A vorbesetzt und in 
Zeile 110 wird das Vorzeichen extrahiert. Im weiteren wird 
an Y der Absolut-Betrag von A zugewiesen. 

Die eigentliche Umwandlung beginnt in Zeile 140 mit der 
Behandlung des Falles, daß ein Wert zwischen '0' und ‘1’ 
vorliegt, der Computer also keine Ziffer vor dem Dezimal¬ 
punkt vermerkt hat. Zeile 150 behandelt das Fehlen von 
Nachkommastellen. Da die INT-Funktion in manchen Fällen 
nicht richtig arbeitet, sollte ein Test auf Gleichheit 
vermieden werden. 

In Zeile 160 wird in ähnlicher Weise der Fall nur einer 
Nachkommastelle behandelt und anschließend wird die jetzt 
erhaltene Zeichenreihe auf 14 Zeichen Länge normiert. 

Ab Zeile 180 wird der Dezimalpunkt durch ein Komma ersetzt 
und die entsprechenden 'Tausender-Punkte' werden einge¬ 
fügt. Als Abschluß wird in Zeile 210 das Vorzeichen als 
letztes Zeichen angefügt. 
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1.11 Runden 


Im folgenden bedeuten: 

A = Zahl, die gerundet werden soll 
N = Anzahl der Nachkommastellen 
** = Potenzierungsoperator 'hoch' 


100 A = INT ( A * 10 ** N + 0.5 ) / 10 ** N 


Für N = 2 ergibt sich die übliche kaufmännische 5/4- 

Rundung auf zwei Dezimalstellen: 

100 A = INT(A*100+0.5)/100 

Beispiel: A = 125.25896 

A * 100 = 12525.896 

A * 100 + 0.5 = 12526.396 

INT ( A * 100 + 0.5 = 12526 

INT ( A * 100 + 0.5)/100 = 125.26 


Das Runden wird im Prinzip auf ein Abschneiden der letzten 
Ziffern zurückgeführt, was die Funktion INT(X) bewirkt. Um 
an der richtigen Stelle den Schnitt durchzuführen, muß 
zuerst mit der entsprechenden Zehnerpotenz multipliziert 
werden. Um eine korrekte 5/4 Rundung zu erreichen, wird 
der Wert 0.5 addiert, womit sich das Runden auf die 
Schnittstelle verschiebt. Anschließend wird wieder durch 
die entsprechende Zehnerpotenz dividiert. 


1.12 Präfix-Suche 


Nicht immer ist es beim Suchen in Datensätzen (besonders 
bei Verwendung von Schlüsseln) erforderlich, daß der Such¬ 
begriff vollständig eingegeben wird. Sucht man nach einem 
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längeren Namen, reichen die ersten Buchstaben zu eindeuti¬ 
ger Identifizierung meist aus. Nimmt man an, daß in A$ je¬ 
weils der zu überprüfende Name (innerhalb einer Such- 
Schleife) steht, und in SU$ der Suchbegriff, so führt bei 
A$='KowaIczyk' und SU$="Kow" die bedingte Abfrage 'IF A$ = 
SU$ THEN allerdings nicht auf die gewünschte Gleich¬ 

heit. 

Dies kann man jedoch dadurch umgehen, indem man in A$ nur 
die Anzahl der Zeichen überprüfen läßt, die SU$ aufweist: 

IF LEFT$(A$,LEN(SU$))=SU$ THEN ... 

was das gewünschte Ergebnis bringt. 

Sind aber A$ Und SU$ bis auf eine bestimmte Länge (z.B. 
20) mit Leerzeichen aufgefüllt, d.h. A$="KowaIczyk 
und SU$ ='Kow ' wenn man eine Input- 

Routine verwendet, so führt obiges Verfahren auch nicht 
zum Ziel. 

Abhilfe schafft hier die Eingabe eines Sonderzeichens 
(z.B.'*') nach dem letzten gültigen Eingabezeichen im 
Suchbegriff : 

SU$ = "Kow* 

Daraufhin muß zuerst in einer Schleife die Position des 
Sonderzeichens gesucht werden, bevor die Abfrage erfolgt, 
was aus Rechenzeitgründen außerhalb der eigentlichen 
Suchschleife erfolgen sollte: 

100 N = 20 

110 FOR PO = 1 TO N 

110 IF MID$(SU$,P0,1) NE ■*• THEN NEXT PO 


200 'Such - Schleife' 


300 IF LEFT$(A$,P0-1)=LEFT$(SU$,P0-1) THEN GOTO 'Gefunden' 


Von der Position des Sonderzeichens muß bei der Teil¬ 
stringbildung noch eine Stelle abgezogen werden, damit das 
Sonderzeichen nicht mit überprüft wird, was nie zu einem 
brauchbaren Ergebnis führen kann. Das Sonderzeichen darf 
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selbstverständlich nicht in den Daten Vorkommen. 

Ein weiteres Problem stellt die Ähnlichkeitssuche dar. 
Meier, Maier, Mayer, Meyer und.Mayr sind für den Rechner 
unterschiedliche Namen, wo er auch keine Assoziation bil¬ 
den kann. Hier ist die Zulassung eines weiteren Sonder¬ 
zeichens (z.B. '?’) sehr hilfreich, wenn eine zeichenweise 
Überprüfung der Vergleichsdaten erfolgt. 

Wenn man nicht genau weiss, ob ein gesuchter Meier auch 
als Meyer oder als Maier gespeichert ist, genügt dann die 
Eingabe von SU$='M??er", wenn folgendes Programmstück zum 
Suchen implementiert ist: 


100 N = 'Länge' 

110 FOR I = 1 TO N 

120 IF MID$(SU$,I,!)=■?"THEN GOTO 150 

130 IF MID$(A$,I,1) = MID$(SU$,1,1) THEN GOTO 150 

140 GOTO 'Nicht ähnlich' 

150 NEXT 

160 ' Zeichenreihen sind im gegebenen Umfang ähnlich 


Beide hier dargestellten Verfahren können auch kombiniert 
werden, so daß auch eine Abfrage SU$ = 'M??e*' möglich 
ist. Als Eingabe möglich, aber logisch sinnlos wäre SU$ = 
'M??*', was durch SU$ = 'M*' ersetzt werden könnte. 

Da in den Suchabfragen jedoch nicht immer '?' verkommen, 
sollte man durch 


10 FOR I = 1 TO N 

20 IF MID$(SU$,I,1) = ■?■ THEN GOTO 'Zeichenweise 
abfragen' 

30 NEXT 

40 GOTO 'Gesamtvergleich' 


vor der Such-Schleife die Rechenzeit optimieren, da das 
kurze Unterprogramm extrem weniger Rechenzeit verbraucht 
als das zeichenweise Vergleichen von 1000 Daten, wenn 
keine '?' vorliegen. 
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1.13 Speicherplatz einsparen 


Nicht immer ist es sinnvoll Speicherplatz zu sparen, weil 
meist dadurch die Möglichkeit der Eigendokumatation von 
Programmen sehr stark eingeschränkt, wenn nicht sogar un¬ 
möglich gemacht, wird. Weiterhin sind Speicherplatzeinspa¬ 
rung und Rechenzeitverkürzung im allgemeinen konkurrieren¬ 
de Ziele, so daß ein gesunder Mittelweg gefunden werden 
muß. 

Abgesehen von den logischen Möglichkeiten der Speicher¬ 
platzeinsparung (vgl. Datum platzsparend speichern), die 
immer nur anhand der Problemstellung abzuschätzen sind, 
sollen im folgenden einige allgemeine Tips gegeben werden: 


Schreiben Sie mehrere Anweisungen in eine Zeile 

Dede Zeile benötigt 5 Bytes zur internen Verwaltung: 

2 Byte für die Zeilennummer 

2 Byte für den Verweis auf die nächste Zeile im RAM 
1 Byte für die Zeilenendemarkierung 

Durch jede eingesparte Zeile gewinnen Sie 4 Byte. 

Beispie 1: 

100 FOR I = 1 TO N 
110 PRINT N 
120 NEXT 

oder 

100 FOR I = 1 TO N:PRINT N:NEXT 
sparen Sie 8 Byte: 2*5 für die Zeile - 2*1 für die 


Löschen Sie alle unnötigen Leerzeichen 

Jedes Leerzeichen - außer dem Leerzeichen zwischen Zeilen¬ 
nummer und erster Anweisung - muß gespeichert werden. Mit: 

100 F0RI=1T0N:PRINTN:NEXT 
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sparen Sie also gegenüber dem letzten Beispiel weitere 5 
Byte. 


Löschen Sie alle REM-Befehle 


Jeder REM-Befehl benötigt ein 
hinter dem REM. Steht das REM 
sogar noch weitere 5 Byte mehr 


Byte + Anzahl der Zeichen 
in einer gesonderten Zeile 
(s.o.). 


Benutzen Sie Variablen statt Konstanten 

Wenn Sie in einem Programm 10 mal den Wert 1.23456789 be¬ 
nötigen, setzen Sie einmal A=l.23456789 und benutzen Sie A 
statt 1.23456789. Jedes Zeichen einer Konstanten benötigt 
Speicherplatz. Auch Zahlkonstanten werden zeichenweise 
gespe ichert. 


Benutzen Sie temporäre Variablen häufiger 

Kurzlebige Variablen (z.B. sofortiges Verarbeiten nach dem 
Einlesen) sollten häufiger in verschiedenen Programmteilen 
verwendet werden, da Basic keine lokalen Variablen kennt, 
und die Lebensdauer im Speicher für eine Variable von der 
Definition bis zum Programmende fortläuft. Durch die Wie¬ 
derverwendung von Variablen sparen Sie Platz in der Va¬ 
riablenliste. 


Häufige wiederkehrende Prograwmtelle als Unterprogramm 
schreiben 

Ein GOSUB XXXXX mit zugehörigem RETURN braucht viel 
weniger Speicherplatz als die mehrmalige Programmierung 
desselben Programmstückes. 


Setzen Sie häufige benutzte Unterprogramme an den Anfang 

Diese Unterprogramme können durch ein GOTO 'erste Zeile 
nach den Unterprogammen' sehr einfach übersprungen werden, 
aber das Voranstellen hat zwei Vorteile: 

- Die Zeilenangabe nach einem GOSUB wird zei¬ 
chenweise gespeichert, d.h. G0SUB3 benötigt 4 
Byte weniger als G0SUB30000. Wird ein Unter¬ 
programm sehr oft aufgerufen, macht sich diese 
Ersparnis jedesmal bemerkbar. 
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- Der Rechner sucht nach dem Unterprogramm 
intern ab der aufrufenden Zeile, wenn das 
aufgerufene Unterprogramm eine höhere Zeilen¬ 
nummer hat, ansonsten vom Programmanfang her. 
Wird das Unterprogramm von verschiedenen Stel¬ 
len im Hauptprogramm aufgerufen, ist es gün¬ 
stiger, dies an den Programmanfang zu setzen. 
Dies trifft auch zu, wenn z.B. das Unterpro¬ 
gramm mit vielen GOTO und GOSUB versehen ist, 
die auf frühere Zeilennummern zeigen. Die Ein¬ 
sparung liegt bei großen Programmen dadurch 
nicht selten im Sekunden-Bereich. 


Benutzen Sie die 0-Elemente von Feldern 

In Basic kann zwar die Feldlänge mit DIM A(x) bestimmt 
werden, jedoch wird damit nur das letzte Element festge¬ 
legt. Die Felder beginnen immer mit dem Element '0'. Statt 
DIM A(IOO) - wenn 100 Elemente gewünscht sind - genügt 
also DIM A(99). 


Wie leicht zu sehen ist, leidet durch die Speicherplatz¬ 
einsparung die Übersichtlichkeit der Programme sehr. Bevor 
Sie also zu obigen Hilfsmitteln greifen, sollten Sie 
andere Möglichkeiten (z.B. Modularisierung) in Betracht 
ziehen. 


1.14 Rechenzeit verkürzen 


Die Rechenzeit läßt sich am besten durch eine genaue Pro¬ 
blemanalyse und entsprechende Programmierung verkürzen. 
Besonders wichtig sind dabei ineinandergeschachtelten FOR 
...NEXT-Schleifen. 


Optimieren Sie Anweisungen innerhalb von Schleifen 


Hier genügt es meist, die innerste Schleife zu optimieren: 

100 FOR I = 1 TO 10 
110 FOR 0 = 1 TO 10 
120 FOR K = 1 TO 10 

130 FOR M = 1 TO 10 
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140 ' Anweisungen ' 

150 NEXT 

160 NEXT 

170 NEXT 
180 NEXT 

Jede im Teil 'Anweisungen' ersparte Millisekunde macht 
sich in der Rechenzeit mit 10 Sekunden bemerkbar. Beachten 
Sie auch, .daß die Schleifen-Grenzen entsprechend der Pro¬ 
blemstellung gewählt werden, überlegen Sie anhand des an¬ 
stehenden Problemes ob z.B. M nicht nur von 2 bis 8 laufen 
muß. Bei einer 'Anweisungen'-Rechenzeit von 10 Sekunden 
werden dadurch insgesamt 3000 Sekunden = 50 Minuten ein¬ 
gespart. Durch ungeschickte Programmierung in diesen Punk¬ 
ten sind normale Rechenzeiten von Stunden sehr leicht auf 
Jahre zu verlängern und werden damit undurchführbar. 


Vermeiden Sie unnötige Leerzeichen und REM-Befehle 

Das Weglassen von unnötigen Leerzeichen und REM-Befehlen 
bewirkt auch eine Rechenzeitverkürzung, da der Rechner 
nicht unnötige Zeichen zu überlesen braucht. 


Benutzen Sie Variablen statt Konstanten 

Auch die Benutzung von Variablen statt Konstanten spart 
Rechenzeit, da eine Konvertierung der Daten entfällt 
(Eaktor 10). 


Definieren Sie häufig benutzte Variablen am Programmanfang 

Häufig benutzte Variablen sollten am Programmanfang defi¬ 
niert werden (z.B. A=0), da Sie dann beim Suchen in der 
Variablentabelle schneller gefunden werden. 


Geben Sie bei NEXT die Laufvariable nicht an 

Wenn Sie NEXT ohne Index-Variable (also nicht NEXT I) be¬ 
nutzen, entfällt die Überprüfung durch das Betriebssystem. 


Zu den oben genannten Mitteln sollten Sie allerdings nur 
greifen, wenn das Einsparen von Rechenzeit wirklich sehr 
wichtig ist, da Ihnen viele Möglichkeiten der Programm¬ 
dokumentation genommen werden. 
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1.15 Index-Funktion 


100 IF LEN(AA$) LT LEN(A$) THEN 1=0 ; RETURN 
110 EOR 1=1 TO LEN(AA$)-LEN(A$)+l 
120 IE MID$(AA$,I,LEN(A$)) NE A$ THEN NEXT I 
130 IE I GT LEN(AA$)-LEN(A$)+1 THEN 1=0 
140 RETURN 

Die Index-Eunktion ist ein in anderen Programmiersprachen 
häufig fest integrierter Bestandteil, der feststellt, ob 
in einer vorgegebenen Zeichenreihe eine andere (kleinere) 
Zeichenreihe eingebettet ist. Da das Commodore-Basic uns 
diesen Befehl nicht zur Verfügung stellt, muß ein kleines 
Unterprogramm geschrieben werden, das uns die gleiche 
Leistung bringt. Die Zeichenreihe, in der gesucht werden 
soll, muß an das Unterprogramm in der Variablen AA$ über¬ 
geben werden und die Zeichenreihe, nach der gesucht werden 
soll in der Variablen A$ abgelegt sein. Ausgabeparameter 
für die Position des ersten übereinstimmenden Zeichens 
beim erstenmal, wo Übereinstimmung erzielt wurde, ist die 
Variable I. 

In Zeile 100 wird zunächst festgestellt, ob AA$ überhaupt 
in A$ von der Länge her enthalten sein kann. Dann wird die 
Teilzeichenreihe in der großen Zeichenreihe jeweils um ein 
Zeichen nach rechts geschoben und überprüft, ob Überein¬ 
stimmung besteht. Wäre die erste Position soweit in der zu 
suchenden Zeichenreihe hinten, daß nicht mehr die gesamte 
zu suchende Zeichenreihe enthalten sein kann, so wird I 
wiederum auf 0 gesetzt und das Unterprogramm verlassen. 


1.16 Zahlkonvertierungen 


Wer etwas tiefer in seinen Rechner einsteigt, hat nicht 
nur mit Dezimalzahlen zu tun, sondern auch mit Hexadezi¬ 
malzahlen, Binärzahlen und manchmal auch mit Oktalzahlen. 
In diesem Kapitel wollen wir einige kurze Programme vor¬ 
stellen, die jeweils eingegebene Zahlen in ein anderes 
Eormat umrechnen. Eür die Verwendung als Basic-Erweiterung 
und ihre Realisierung in Maschinensprache sei auf Kapitel 
2.2.2 verwiesen. 
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Binär - Dezimal 


100 REM *** ZAHLKQNVERTIERUNG BINAER-DEZIMAL <119> 
110 A^:=" 10010110" <077> 
120 FA=1 <226> 
130 FQR I=LEN(A4:) TO 1 STEP -1 <209> 
140 A = A + FA*VAL(MIDT(AT,I,1)) <005> 
150 B = B + 2''(LEN(AT)-I) *VAL(MIDT(AT, I , 1) ) <040> 
160 FA=FA*2 <062> 
170 NEXT <044> 
180 PRINT At;" = ";A;" = ";B <035> 
190 END <062> 

Binärzahlen liegen in der Regel als Zeichenreihe - be¬ 


stehend aus den Zeichen ’l' und ’O’ vor. In dem Programm 
wurden gleichzeitig zwei Wege beschritten. In jedem Fall 
muß aber mit der Zählweise von hinten begonnen werden. Da 
die einzelnen 'Ziffern' jeweils Potenzen der Basis dar¬ 
stellen, ist eine Umrechnung recht einfach. In der Version 
A wird ein Faktor (FA) jeweils mit 2 multipliziert, was 
den eigentlichen Ausdruck zur Umrechnung sehr vereinfacht. 
Wie im Fall B wird direkt die Zweierpotenz verwendet, bei 
der Exponent sich aus der Position - von hinten - in der 
Zeichenreihe ergibt. In jedem Fall wird jedoch mit dem 
Wert des Zeichens multipliziert, d.h. der Faktor wird nur 
zu dem bereits vorhandenen Wert hinzuaddiert, wenn ein '!' 
in der Zeichenreihe steht. 


Dezimal - Binär (bis 32767) 


200 REM *** ZAHLKQNVERTIERUNG DEZIMAL-BINAER 8-STELL 


IG (BIS 255) <031> 
210 A=230 <090> 
220 FOR 1=7 TO O STEP-1 <232> 
230 IF A AND 2 -1 THEN AT=AT+" 1 ": GOTO 250 :;038> 
240 AT=AT+”0" <138> 
250 PRINT 2'I,AT < 077 > 
255 NEXT <129> 
260 PRINT A;" = ";AT <059> 
270 END <143> 


Sofern nur kleinere Dezima1zahlen (bis 32767) in eine 
binäre Zeichenreihe umzuwandeln sind, kann man sich der 
UND-Verknüpfung bedienen, da diese jeweils 15-Bit mitein¬ 
ander vergleicht. Im Prinzip hilft uns hier die interne 
Binärdarstellung einer Zahl im Computer. Im Prinzip wird 
ein einzelnes Bit von der Bit-Position 14 bis zur Position 
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0 (von vorne nach hinten) durchgeschoben. Ist in der ur¬ 
sprünglichen Zahl dieses Bit gesetzt, so wird an die 
Zeichenreihe A$ eine '1' angehangen, im anderen Fall ein 

• 0 ‘ . 


Dezimal - Binär (beliebig groß) 

300 REM *** ZAHLK.ONVERTIERUNG DEZ IMAL-BINAER BELIEBI 


G GROSS < 001> 
310 A=104B000 ; B=A <246> 
320 FOR 1=31 TO 0 STEP-1 <122> 
330 IF A >= 2"I THEN AT=AT+"1" ; A=A-2 ' I : GOTO 350 <130 
340 A^:=A4:+"0" <239> 
350 NEXT <225> 
360 PRINT A^;" = PRINT B <056> 
370 END <243> 


Beliebig groß in diesem Falle heißt bis zur größten, im 
Commodore 64, darstellbaren Zahl (2**31). Auch in diesem 
Falle wird das Bitmuster von links nach rechts erstellt, 
allerdings muß jetzt jeweils abgefragt werden, ob ein Wert 
größer als die entsprechende Zweierpotenz vorliegt. Wenn 
ja, wird eine '1' an den String A$ angehangen und die ent¬ 
sprechende Zweierpotenz vom ursprünglichen Wert subtra¬ 
hiert. Im Gegensatz zu dem o.a. Verfahren wird dabei der 
ursprüngliche Wert in A zerstört. Soll er weiterhin beste¬ 
hen bleiben, so ist er zunächst an eine entsprechende 
Hilfsvariable zu übergeben. 


Hilfsfunktionen für Hexadezlmal-Umwandlungen 


400 REM *** HILFSFUNKTIONEN UND AUFRUF <197> 
405 HE^="01234567B9ABCDEF" <223> 
410 H=210 <040> 
415 GOSUB 500 <194> 
420 PRINT" ■CCLR,RVSON,ORANGE>ZWEISTELLIGE HEX.-ZAHL BI 

LDENfBLUEl <044> 
425 PRINT : PRINT"DEZ.";H,"= HEX. ";H^ <0B5> 
430 GOSUB 600 <210> 
435 PRINT"C3DOWN,RVSON,ORANGE}VIERSTELLIGE HEX-ZAHL 

BILDENCBLUE} <210> 
440 PRINT ; PR INT" DEZ. " ; HH, "= HEX. " ; HH4: <244> 
445 DEF FN V(X)=X-48+7*(X>64) <106> 
450 H4:="D2" <155> 
455 GOSUB 700 <236> 
460 PRINT" ■C3D0WN,RVS0N,0RANGE}DEZ. AUS ZWEISTELLIGER 

HEXZAHLtBLUE} <101> 
465 PRINT ; PRINT"HEX. ";HT,"= DEZ.";H <125> 
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470 HHt="6590'' 

475 GOSUB 800 

4B0 PRINT"C3D0WN,RVS0N,ORANGE>DEZ. AUS 
HEXZAHL CBLUEI 

485 PRINT : PRINT"HEX. ";HHT,'"= DEZ."; 

Wichtig ist die Definition der Zeiche 
405, die alle hexadezimalen Ziffern in 
henfolge (als Zeichen) enthält, und 
Funktion FN(V) in Zeile 445. 
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Diese Funktion bedarf sicherlich einer näheren Erklärung. 
Betrachten wir uns zunächst Teile der Funktion, unter der 
Berücksichtigung, daß nur korrekte hexadezimale Werte 
(siehe HE$) vorliegen. Die Zeichen '0', '1',...,’9’ haben 
einen ASCII-Code in vorbezeichneter Reihenfolge, beginnend 
bei 48. Der ASCII-Code der Buchstaben beginnt bei 65. 
Liegt also das Zeichen für eine Ziffer zwischen '0' und 
’9’ vor, so liefert der Teil 'X-48' der Funktion den de¬ 
zimalen Wert des Zeichens. Liegt ein Buchstabe zwischen 
’A' und ’F’ vor, so liefert der Teilausdruck '(X GT 64)' 
den Wert Durch das negative Vorzeichen und den 
Faktor 7 werden also im Falle eines Buchstabens weitere 
sieben Einheiten vom Wert des ASCII-Codes abgezogen. 
Zusammen mit dem ersten Teilausdruck liefern somit die 
Buchstaben einen Wert zwischen 10 und 15. 


Oezlnal - Zweistellig Hexadeziaal 


500 REM *** ZWEISTELLIGE HEXZAHL ::174> 
510 H4=MID^ (HET,H/16+1 , 1 ) + MIDf(HE:T,(H AND 15)+1,1) <049> 
520 RETURN :;i52> 


Liegt ein dezimaler Wert zwischen 0 
eine zweistellige Hexadezimalzahl 
erste Zeichen gibt die ganzzahligen 


und 255 vor, so kann 
gebildet werden. Das 
Vielfachen von 16 an 


und das zweite Zeichen den Rest. Da Hexadezimalzahlen auch 
als Zeichenreihen dargestellt werden müssen, werden die 
entsprechenden Ziffern anhand der Position in der Zeichen¬ 
reihe HE$ festgestellt. 


Deziaal - Vierstellig Hexadeziaal 

600 REM *** VIERSTELLIGE HEXZAHL 

610 HH=26000 

620 H=INT(HH/256) 


< 010 > 
< 158> 
<072> 
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630 GQSUB 500 <154> 
640 HH^:=H^ <084> 
650 H=HH-256*H ;:082> 
660 GQSUB 500 <184> 
670 HHt=HH^:+H^: <208> 
680 RETURN <056> 


Das Bilden einer vierstelligen Hexadezimalzahl kann aufge¬ 
spalten werden in: zwei mal eine zweistellige Hexadezimal¬ 
zahl bilden. Dabei geben die ersten beiden Ziffern ganz¬ 
zahlige Vielfache von 256 an (die erste Ziffer entsprechen 
dann ganzzahlige Vielfache von 4096) und die letzten bei¬ 
den Ziffern - analog zum letzten Programm - den Rest. In 
Zeile 620 wird die erste Division ausgeführt und eine 
zweistellige Hexadezimalzahl gebildet, die der Variablen 
HH$ übergeben wird. In Zeile 56 werden dann die ganzzahli¬ 
gen Vielfachen von 256 vom ursprünglichen Wert subtrahiert 
und für den Rest eine zweistellige Hexadezimalzahl gebil¬ 
det, die mit dem ersten Teil dann verknüpft wird. 


Zweistellig Hexadezinal - Dezinal 

700 REM *** DEZ. AUS 2-STELLIGER HEX ZAHL ::227> 
710 H=16*FN V(ASC(HT) )+FN V (ASC (MIDT (HT,2) ) ) ::150> 
720 RETURN <096> 


Aufgrund der oben vorgeführten Funktion, die die ent¬ 
sprechenden ASCII-Codes für die hexadezimalen Ziffern in 
Dezimal umrechnet, läßt sich die vorliegende Umrechnung 
sehr einfach gestalten. Für beiden Zeichen wird der De¬ 
zimalwert aufgrund dieser Funktion errechnet, wobei der 
erste Wert noch mit 16 multipliziert wird. 


Vierstellig Hexadeziaal - Dezinal 

800 REM *** DEZ. AUS 4-STELLIGER HEXZAHL 


810 HT=LEFTT(HHT,2) <11B> 
820 GQSUB 700 - 091> 
830 HH=256*H <020> 
840 HT=RIGHTT(HHT,2) <149> 
850 GQSUB 700 <121 > 
860 HH=HH+H <035> 
870 RETURN <247> 
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Analog der Umrechnung in die andere Richtung kann auch das 
Errechnen einer Dezimalstelle aus einer vierstelligen 
Hexadezimalzahl in zwei gleichen Bereichen erfolgen. Dazu 
wird der Einfachheit halber das zuletzt beschriebene 
Unterprogramm aufgerufen, was eine Speicherplatzersparnis 
bringt. Die Auswertung des ersten Teils muß dann aller¬ 
dings noch mit 256 multipliziert werden. 


Oktal - Dezinal 


900 REM *** ZAHLKONVERTIERUNG OKTAL-DEZIMAL <100> 
910 At="3776700" <090> 
920 FOR I=LEN(AT) TO 1 STEP -1 <234> 
930 A = A + 8t(LEN(AT)-I)*VAL(MID4:(AT,I,l) ) <059> 
940 NEXT <049> 
950 PRINT"CCLRI";AT;" = ";A <001> 
960 END <067> 
1000 REM *** ZAHLKONVERTIERUNG DEZIMAL-OKTAL <200> 


Die Umwandlung einer Oktalzahl in eine Dezimalzahl kann 
analog der Konvertierung einer Binärzahl (Version B) 
erfolgen. Es braucht lediglich die Basis in ‘8’ umgewan¬ 
delt zu werden (Zeile 930). 


Dezinal - Oktal 


1000 REM *** ZAHLK.ONVERTIERUNG DEZIMAL-OKTAL <200> 
1010 A= 1048000 : B=A : AT="'' <073> 
1020 FOR 1=10 TO O STEP-1 <053> 
1030 A4:=A4:+R IGHT^: (STRT (INT (A/8 ' I) ) , 1 ) <223> 
1040 IF A>= 8-'I THEN A=A-8 I * INT (A/E I) <246> 
1050 NEXT <160> 
1060 PRINT" ";AT;" = ”;B <222> 
1070 END <178> 


Auch die Umwandlung von Dezimal nach Oktal erfolgt analog 
der Konvertierung von Dezimal nach Binär. Da bei Binär¬ 
zahlen jedoch außer der '0' nur eine Ziffer vorhanden ist, 
müssen die unterschiedlichen Ziffern bei der Umrechnung 
nach Oktal noch berücksichtigt werden. Abgezogen wird also 
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in Zeile 1040 nicht nur die direkte Potenz von 8, sondern 
hier mit der entsprechenden Ziffer multipliziert. 

Daß in Zeile 1030 nur der rechte Teil der in eine Zeichen¬ 
reihe umgewandelten Ziffer herangezogen wird, liegt an dem 
Vorzeichen. Würde dies nicht in dieser Weise durchgeführt, 
ergäbe sich die Oktaldarstellung der Zahl mit Zwischenräu¬ 
men. 




2 

Utilities 
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2. Utilities 


Nachdem wir im ersten Kapitel allgemeine Routinen vorge¬ 
stellt haben, die sich auch leicht auf andere Rechner 
übertragen lassen, wollen wir im zweiten Kapitel spezielle 
Routinen für den Commodore 64 (sie sind teilweise auch für 
Rechner anderer Commodore-Serien geeignet) vorstellen. Das 
Kapitel gliedert sich in die beiden großen Bereiche Basic- 
Utilities und Maschinenroutinen, wobei einige Themen auch 
in beiden Abschnitten behandelt werden. Wir haben ver¬ 
sucht, Ihnen mit diesen Routinen die wichtigsten Hilfsmit¬ 
tel in die Hand zu geben, die Sie bei Ihrer Arbeit mit dem 
Rechner benötigen. Bitte haben Sie Verständnis dafür, wenn 
wir die eine oder andere Routine, die Sie gerade benöti¬ 
gen, nicht mit abgebildet haben. Wir waren bestrebt, Rou¬ 
tinen auszuwählen, die von allgemein gültigem Interesse 
sind. 


2.1 Basic-Utilities 


In diesem Kapitel sind einige Unterprogramme zusammenge¬ 
faßt, die zwar speziell auf den Commodore 64 abgestimmt 
sind, aber von allgemein gültiger Bedeutung sind. So wird 
die Joystick-Handhabung (und teilweise auch die Steuerung 
mittels Paddies) sicherlich bei sehr vielen Spielen ver¬ 
wendet, aber auch andere Anwendungsmöglichkeiten sind 
denkba r. 

Für benutzerfreundliche Programme ist eine Cursor-Posi¬ 
tionierung unerläßlich, und wenn die Programme einen 
größeren Umfang annehmen und eine Teilung erfolgen muß, 
ist es auch sehr hilfreich zu wissen, wie man Daten von 
einem Programm an das andere übergibt. 

Etwas spezieller sind schon die Kapitel ab 2.1.5. Wer eine 
Maschinenroutine nicht immer getrennt vom Basic-Programm 
laden möchte, kann diese als DATA-Zeilen in sein Basic- 
Programm übernehmen, und wenn die Floppy-Lampe flackert 
ist es anzuraten, bei der Floppy nachzufragen, was ihr 
denn Unbehagen bereitet. 



78 


Kapitel 2 


Die letzten Unterkapitel beschäftigen sich mit Themen, die 
zwar nicht in jedem Programm gebraucht werden, aber von 
Zeit zu Zeit doch eine nützliche Unterstützung darstellen. 


2.1.1 Doystlck-Steuerung 


Dieses Kapitel ist einem Peripheriegerät gewidmet, das 
hauptsächlich für Spiele herangezogen wird. Aber nicht nur 
hier liegt ein Einsatzgebiet des Joysticks, sondern auch 
bei 'normalen' Anwendungen. In gewisser Weise kann ein 
Joystick die mittlerweile vieIgerühmte 'Maus' ersetzen. 
Gehen wir zunächst auf die Abfrage des Joysticks und des¬ 
sen Verwendung bei hochauflösender Grafik ein. 


Joystick-Abfrage 

In der Regel wird für den Joystick Control-Port 2 herange¬ 
zogen. Beide Control-Ports sind mit Vorsicht zu genießen, 
da ihre Abfrage teilweise mit der Tastaturbehandlung zu¬ 
sammenfällt. Dieser Umstand tritt bei Control-Port 1 stär¬ 
ker auf, so daß auch hier der offensichtliche Grund für 
die hauptsächliche Verwendung von Control-Port 2 liegt. 
Für jeden Control-Port ist ein Register vorgesehen. Für 
Control-Port 2 ist dies die Speicherzelle 56320 oder in 
hexadezimaler Schreibweise ausgedrückt $DC00. Für den Con- 
trol-Port 1 ist es gleich die nächste Speicherzelle 
(56321, $DC01). 

Abgefragt werden kann dies mit 


100 JO = PEEK(56320) : REM Control-Port 2 

110 PRINT JO 
120 GOTO 100 

bzw. 

100 JO = PEEK(56321) ; REM Control-Port 1 

110 PRINT JO 
120 GOTO 100 


Damit bringen Sie die dezimalen Werte des jeweiligen Regi¬ 
sterzustandes auf den Bildschirm. Von vornherein wollen 
wir die Handhabung so gestalten, daß zunächst der Wert des 
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Registers in eine Variable (die wir durchgehend mit 00 
bezeichnen werden) übernehmen. Bei größeren Programmen 
kann dann mit der Variablen weitergearbeitet werden, was 
einerseits Speicherplatz im Programm spart (gegenüber 
vielen PEEK-Abfragen), andererseits können keine Fehler im 
Programmablauf auftreten, wenn sich der Wert im Register 
während des Programmablaufes ändert. 

Wenn Sie die Dezimalwerte für Control-Port 1 und 2 jeweils 
mit der Richtung des Steuerknüppels (mit oder ohne 'Feuer¬ 
taste') notieren, so ergibt sich die Belegung, wie Sie in 
den Abbildungen 2.1.1-1 und 2.1.1-2 dargestellt ist. 

Die Kollision mit Eingaben von der Tastatur wird hier 
schon deutlich, wenn Sie an Control-Port 1 den Ooystick 
angeschlossen haben und den Steuerknüppel nach links bewe¬ 
gen. Es tritt eine Verzögerung der Ausgabe ein, die mit 
der Verlangsamung durch die CTRL-Taste übereinstimmt. 

Rechnet man die Dezima1zahlen in Binärzahlen um, so sieht 
man, daß den verschiedenen Richtungen und dem Feuerknopf 
jeweils ein Bit im Register zugeordnet ist. Mit folgendem 
Programm holen Sie die Bitmuster auf den Bildschirm: 


100 

Ja=PEEK(5632 

0) 

< 194> 

1 10 

AT="0":A=JD 


< 191 > 

120 

GOSUB 200 


<151> 

130 

PRINT Ja,AT 


<069> 

140 

GOTO 100 


< 166> 

200 

FÜR 1=6 TG 0 

STEP-1 

<211 > 

210 

IF A AND 2'I 

THEN AT=AT+"1":GQTU 230 

< 016 > 

220 

AT=A^:+"0" 


<118> 

230 

NEXT 


< 104> 

240 

RETURN 


< 126> 


Das Programm ist für Control-Port 2 ausgelegt. Zunächst 
wird auch hier an die Variable 30 wieder der aktuelle Wert 
des Registers übergeben. In der Variablen A$ wollen wir 
das Bitmuster des Registers zusammensetzen. Da die Werte 
am Control-Port 2 immer kleiner als 128 sind, kann das 
erste Bit im Register nie '1' werden, und wir machen eine 
Vorbesetzung mit '0' in Zeile 110. Der Rest des Programmes 
entspricht der Zahlkonvertierung aus Kapitel 1.16. 
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Grundprog ramm 

Für den Control-Port 2 wollen wir ein kurzes Programm vor¬ 
stellen, mit dem Sie den doystick als Zeichenstift am 
Bildschirm verwenden können. Damit wird auch die program¬ 
mäßige Verwertung der Registerwerte deutlich. Zunächst das 
L i s ti ng : 


100 
110 
120 
130 

135 

136 
140 
145 
150 
155 
160 
165 
170 
175 
180 
185 
190 
195 
200 
205 
210 
215 
220 
225 
230 
240 
250 
260 


POKE 53280,7 
POKE 53281,7 
PRINT"tBLUEJ 
GREIN6,7 
PX=160 
PY=100 

JO=PEEK(56320) 

REM-OBEN RECHTS - 

IF (JO AND 9)=0 THEN PY=PY-1 ; PX=PX+1 

REM - UNTEN RECHTS - 

IF (JO AND 10)=0 THEN PY=PY+1 : PX=PX+1 

REM - UNTEN LINKS - 

IF (JO AND 6)=0 THEN PY=PY+1 : PX=PX-1 

REM-OBEN LINKS - 

IF (JO AND 5)=0 THEN PY=PY-1 ; PX=PX-1 

REM-OBEN - 

IF (JO AND 1)=0 THEN PY=PY-1 : GOTO 

REM-UNTEN - 

IF (JO AND 2)=0 THEN PY=PY+1 ; GOTO 

REM-LINKS - 

IF (JO AND 4)=0 THEN PX=PX-1 : GOTO 

REM-RECHTS - 

IF (JO AND 8)=0 THEN PX=PX+1 ; GOTO 

REM-FEUERKNOPF - 

IF (JO AND 16)=0 THEN PF=1 : GOTO 250 
PF=0 

PUNKTPF,PX,PY 
GOTO 140 


<096> 

< 107> 
<082> 
<144> 

< 120 > 
<116> 
< 234 > 
<207> 


GOTO 

230 

<203> 

<063> 

GOTO 

1 230 

K 252 
<001 > 

GOTO 

230 

<220> 
< 165 > 

GOTO 

230 

<230> 

<046> 


;30 

<212> 

<15B> 

:30 

'T' "■> 

< 159> 

:30 

< 233 y 
<24 1> 

:30 

1 

<246> 
<039> 
<205 > 
<104> 

<203> 

<035> 


Zunächst werden für die normale Arbeit Bildschirmhinter¬ 
grund- und Rahmenfarbe gesetzt und die Zeichenfarbe auf 
blau geschaltet. Dann wird mit dem GREIN-Befehl (siehe 
Kapitel 2.2.13) die Grafik eingeschaltet (gelber Hinter¬ 
grund / blaue Farbe der Zeichnung). Für die jeweiligen X- 
und Y-Koordinaten wollen wir die Variablen PX und PY 
(Punkt X-Koordinate / Punkt Y-Koordinate heranziehen. 
Diese werden in den Zeilen 135 und 136 auf den Bildschirm¬ 
mittelpunkt gesetzt (auch der Befehl PUNKT wird in Kapitel 
2.2.13.3 besprochen). 

In Zeile 140 wird das Register für Control-Port 2 abge¬ 
fragt. Anschließend befindet sich in den Zeilen ab 150 die 
Abfrage, in welcher Richtung der Cursor bewegt wurde. Wie 
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wir in Kapitel 1.1 gesehen haben, ist für die vier nor¬ 
malen Richtungen (oben, unten, rechts, links) jeweils ein 
Bit zuständig, mit folgender Verteilung: 

1 - oben 

2 - unten 

4 - links 

8 - rechts 

16 - Feuerknopf 

Die Diagonalen ergeben sich aus der Kombination von den 
beiden daran beteiligten Richtungen mit: 

5 - oben links 

6 - unten links 

9 - oben rechts 
10 - unten rechts 

Zunächst müssen aus logischen Gründen die Diagonalen abge¬ 
fragt werden. Würde man erst die normalen Richtungen ab- 
fragen, so würde die Abfrage der Diagonalen nicht mehr be¬ 
handelt. Wählen Sie als Beispiel das Bitmuster für ’9'. In 
diesem Falle ist das Bit für gesetzt und die Behand¬ 

lung des Falles ’Ooystick nach oben' würde durchgeführt, 
ohne daß noch die Behandlung der Fälle 'oben rechts' oder 
'oben links' erfolgte. Aus Rechenzeitgründen wird jeweils 
die Abfrage des Feuerknopfes übergangen. Dadurch erspart 
man sich zu viele Abfragen. 

In jedem Falle werden die entsprechenden PX- und PY-Werte 
aktualisiert. Die Schrittweite für die Bewegung wird ge¬ 
nerell auf einen Bildpunkt festgelegt. 

In Zeile 230 wird erfragt, ob der Feuerknopf gedrückt ist. 
In diesem Fall wird die Variable PF auf '!' gesetzt, was 
angezeigen soll, daß hier ein Punkt gesetzt werden soll. 
Im anderen Fall wird in Zeile 240 die Variable PF auf '0' 
zurückgesetzt. 

Dieses Grundprogramm können Sie bestimmt auch noch für an¬ 
dere Anwendungen heranziehen. Versuchen Sie es doch ein¬ 
mal, indem Sie Sprite-Koordinaten variieren. 


2.1.2 Paddle-Steuerung 


Ähnlich wie beim Ooystick kann die Abfrage für Paddies ge¬ 
schaltet werden. Wir wollen hier zunächst nur den Fall der 
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Paddies am Control-Port 1 behandeln. Beachten sie bitte, 
daß jeweils zwei Paddies an einem Control-Port angeschlos¬ 
sen werden. Wie weiter unten beschrieben, kann, wegen der 
analogen Schaltung keine gleichzeitige Abfrage von vier 
Paddies erfolgen. Auf die Möglichkeit des Umschaltens 
gehen wir zum Schluß ein. 

Wenn Sie Ihre Paddies am Control-Port 1 anschließen und 
das Register 56321 abfragen, so werden Sie feststellen, 
daß das Register nur auf einen Tastendruck an einem der 
beiden Paddies reagiert. Der übliche Wert von 255 wird auf 
251 bzw. 247 verringert. 243 ist dann logischerweise der 
Wert, wenn beide Knöpfe gleichzeitig gedrückt sind. Wie 
man leicht daraus ersieht, sind also Bit 2 und Bit 3 für 
die Abfrage der Knöpfe an den Paddies zuständig. 

Die Potentiometerwerte der Paddies können über dieses Re¬ 
gister nicht abgefragt werden. Dazu sind die Register 25 
und 26 des SID zuständig. Die entsprechenden Speicher¬ 
adressen sind 54297 und 54298. 

Da die Paddies einen analogen Wert an den Rechner abgeben, 
müssen diese zuerst über einen Analog-/ Digitalwandler um¬ 
gewandelt werden. Dies geschieht bei den genannten Regi¬ 
stern des SID. Wen es interessiert: ein Kondensator wird 
über die Paddies entladen, und der Rechner stellt die Zeit 
fest, die der Kondensator für das vollständige Entladen 
benötigt. Daß nicht die genauesten Werte zurückgegeben 
werden, können Sie schon daran sehen, wenn Sie das unten 
aufgeführte kurze Testprogramm laufen lassen, ohne die 
Paddies zu bewegen. In der Regel schwanken die ausgegebe¬ 
nen Werte um zwei Einheiten, aber auch größere Differenzen 
sind möglich. 

Analog zu dem Programm bei der Doystick-Abfrage wollen wir 
uns ein kurzes Programm schreiben, mit dem die drei Regi¬ 
ster abgefragt werden können: 


100 PT = PEEK(56320) 
110 PI = PEEK(54297) 
120 P2 = PEEK(54298) 
130 PRINT PT,P1,P2 
140 GOTO 100 


Umschaltung zwischen zwei Paddle-Paaren 

Da für die analoge Steuerung nur zwei Register zur Verfü¬ 
gung stehen, aber bei Verwendung von zwei Paddle-Paaren 
vier gebraucht werden, muß man jeweils umschalten. In der 
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Regel wird man ein Maschinenprogramm dazu verwenden, aber 
auch Basic bietet diese Möglichkeit: 


200 POKE 56333,1 <192> 
210 PQKE 56320,64:POKE 56322,192 <154> 
220 PRINT PEEK (54297) ; PEEK (54298) , :;025> 
230 PRI NT" CWHITE1";PEEK(56320)AND 12;" CYELLOW}"; < 128 > 
240 POKE 56320,128 <078> 
250 PRINT'PEEK(54297);PEEK(54298) <011> 
260 PRINT"fWHITE>";PEEK(56321)AND 12;"tYELLOWJ"; <160> 
270 POKE 56333,129 <114> 
280 GOTO 200 ■<052> 


Bei Verwendung der in Kapitel 2.2.2 vor gestellten Zahlkon¬ 
vertierungen ergibt sich folgender Ablauf: 


100 POKETDCOD,1 <119 > 
110 P0KETDC00,T40:P0KETDC02,TC0 <101> 
120 PRINT PEEK(TD419);PEEK(TD41A) , <178> 
130 PR INT"CWHITE >";PEEK(TDCOO)AND 12;" CYELLOW >"; < 039 > 
140 P0KETDC00,T80: P0KETDC02,TC0 :;i35> 
150 PRINT PEEK(TD419);PEEK(TD41A) <164> 
160 PRINT" CWHITEJ";PEEK(TDCO1)AND 12;"CYELLOW>"; <070> 
170 POKETDCOD,129 <040> 
180 GOTO 100 <206> 


In Zeile 100 (200) wird der Interrupt ausgeschaltet, indem 
im CIA-ICR-Register das Bit 'Unterlauf Timer A' gelöscht 
wird. Dadurch wird die einzige standardmäßige Interrupt¬ 
quelle gesperrt. Notwendig ist dies, da ein Interrupt die 
Tastatur ansprechen würde, was ebenfalls über das Register 
56320 geschieht. 

In den Zeilen 110 und 140 (210 und 240) geschieht die 
eigentliche Umschaltung, in den Zeilen 120 und 150 (220 
und 250) erfolgt die Abfrage und abschließend in den Zei¬ 
len 130 und 160 (230 und 260) die Kontrollausgabe auf dem 
Bildschirm. Natürlich muß der Interrupt wieder eingeschal¬ 
tet werden (Zeilen 170 bzw. 270). 
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2.1.3 Cursor-Positionierung 


Ein immer wieder vorkommendes Problem ist die richtige 
Positionierung des Cursors am Bildschirm. Wir wollen 
zunächst eine 'normale' Programmversion vorstellen und 
anschließend eine Cursor-Positionierung mittels POKE- 
Befehlen behandeln. 

Wie positioniert man den Cursor in eine gewünschte Zeile 
und Spalte, wenn man nicht weiß, wo er sich befindet? Dazu 
gibt man zunächst den Befehl 'HOME' für den Cursor, um 
eine definierte Ausgangsstellung zu erreichen, und an¬ 
schließend die gewünschte Anzahl von 'Cursor rechts' und 
'Cursor nach unten' ein, wobei zu berücksichtigen ist, daß 
die PRINT-Befehle alle mit einem ';' abgeschlossen werden, 
um auch die erreichte Position für die weitere Ausgabe zu 
erha Iten. 

Besetzen der Variablen am Programmanfang: 

100 CH$ = 'Cursor HOME' 

110 CR$ = 'Cursor rechts' 

120 CU$ = 'Cursor unten' 

130 FOR I = 1 TO 6 
140 CR$ = CR$ + CR$ 

150 CU$ = Cui + CU$ 

160 NEXT 

170 CR$ = LEFT$(CR$,40) 

180 CU$ = LEFTi(CU$,25) 

Das eigentliche Unterprogramm wird mit den Variablen 'Z' 
für die Zeile und 'S' für die Spalten aufgerufen: 


1000 PRINT CH$ ; LEFT$(CR$,S) ; LEFT$(CU$,Z);:RETURN 


Zählt man die Zeilen und Spalten - wie das Betriebssystem 
auch - von '0' ab, gibt aber am Bildschirm abgezählte 
Zeilen und Spalten ein, so lautet die Zeile: 


1000 PRINT CH$ ; LEFT$(CR$,S-1); LEFT(CU$,Z-1);:RETURN 


Da die Cursor-Position auch in der Zero-Page abgelegt ist, 
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kann sie dort mittels zweier POKE-Befehle geändert werden: 


POKE 214,(Zeile) : POKE 211,(Spalte) 

Damit ist aber noch keine Positionierung erfolgt. Dies 
wird mit 

SYS 58732 

veranlaßt. 


2.1.4 Parameterübergabe zwischen Programmen 


Haben Sie sehr große Basic-Programme, so ist es manchmal 
notwendig, vom Programm aus ein weiteres Basic-Programm 
(ein sogenanntes Overlay) nachzuladen. Dieses Verfahren 
ist auch sinnvoll, wenn Sie mit Menüs arbeiten. 

Das direkte Nachladen mit LOAD wird im ersten Unterkapitel 
mit seinen Vor- und Nachteilen beschrieben. Danach be¬ 
schreiben wir einen sogenannten Kaltstart, wobei jedoch 
die Variablen gelöscht werden. Wie Sie dennoch die Para¬ 
meter zwischen den Programmen übergeben können, wird in 
den folgenden drei Kapiteln erläutert. 


2.1.4.1 Parameterübergabe durch Overlay 


Ein LOAD-Befehl, der im Programm aufgerufen wird, arbeitet 
ähnlich wie im Direktmodus, jedoch startet er das Programm 
nach dem Ladevorgang sofort mit der ersten Zeile. Die Va¬ 
riablentabelle und die Strings bleiben dabei im allgemei¬ 
nen erhalten, und auch Floppy-Dateien bleiben offen. 

Zu beachten ist allerdings, daß ein LOAD-Befehl im Pro¬ 
gramm keine Basic-Zeiger verändert. Insbesondere gilt dies 
für den Zeiger auf den Beginn der Variablen, so daß die 
Variablen durch das Overlay überschrieben werden, wenn 
dieses größer ist als das aufrufende Programm. 
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Wir merken uns also: das erste Programm einer Overlay- 
Sequenz muß das größte sein. Insbesondere ein Menüpro¬ 
gramm, das nur als Verteiler arbeitet, erfüllt i.a. diese 
Voraussetzung nicht. 

Eine weitere unangenehme Eigenschaft der Overlays ist, daß 
String-Variablen, die auf Strings im Basic-Text zeigen, 
durch Overlay zerstört werden. Davon betroffen sind die 
Variablen im folgenden Programmstück: 

10 A$=“GHI0K“ 

20 B$ = A$ 

30 READC$ 

40 DATA HALLO 

Nicht betroffen sind dagegen die Variablen im folgenden 
Programmstück, weil durch Stringverknüpfungen der Basic- 
Interpreter gezwungen wird, die Stringinhalte in den 
Stringbereich zu legen. 

10 A$=“GHI0K“+“• 

20 B$=A$ 

30 INPUT A$ 

40 READC$:C$=C$+"“ 

Ein ähnliches Problem wie bei den Strings ergibt sich bei 
den Funktionen, die mit DEFFN() definiert werden. Diese 
können im Overlay nur dann verwendet werden, wenn sie dort 
nochmals definiert wurden. 


2.1.4.2 Kaltstart 


Kaltstart soll hier bedeuten, daß sämtliche Variablen des 
aufrufenden Programms gelöscht werden und somit das neue 
Programm ein Zustand vorfindet, als ob es mit LOAD und RUN 
gestartet worden wäre. Diesen Kaltstart können Sie auf 
zwei Arten erzeugen: Zum einen können Sie den LOAD- und 
den RUN-Befehl in den Tastaturpuffer legen und das auf¬ 
rufende Programm beenden, so daß die entsprechenden 
Zeichen am Bildschirm erscheinen und durch die RETURN's, 
die Sie ebenfalls im Tastaturpuffer ablegen, müssen ausge¬ 
führt werden (vgl. auch Kapitel 2.1.4.3). 


Eleganter ist jedoch diese Methode: Zu Beginn jedes Pro¬ 
gramms setzen Sie die folgenden zwei Zeilen: 
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1 IF PEEK(45)=PEEK(47) AND PEEK(46)=PEEK(48) THEN 3 

2 P0KE45,PEEK(174) : P0KE46,PEEK(175) : CLR 

3 REM Programmbeginn 


Nach dem Laden des Overlays steht in den Zellen 174 und 
175 die Endadresse des gerade geladenen Programms. Diese 
wird in Zeile 2 in die Zellen 45, 46 kopiert, die auf den 
Beginn der Variablentabe1 le zeigen. Die restlichen Basic- 
Zeiger werden durch CLR richtig gestellt. Die Zeile 1 ist 
wichtig für das Stadium der Programmentwicklung. Würden 
Sie nämlich ein mit Zeile 2 präpariertes Programm ändern 
und dann auch noch starten, würde die Programmgröße wieder 
auf ihren alten Wert zurückgesetzt, wodurch Zeilen am Pro¬ 
grammende verloren gehen können. Nach einer Programmände¬ 
rung sind die Zellen 45, 46 und 47, 48 gleich; Zeile 1 
verzweigt dann in diesem Fall gleich zum Programmbeginn. 


2.1.4.3 Paraffleterübergabe über den Bildschirm 


Sehr oft stellt sich die Schwierigkeit, daß irgendwelche 
Variablen von einem Programm zu einem anderen, das nach¬ 
geladen wird, übernommen werden müssen. Dies ist besonders 
bei Verwendung von Kassettenrekordern der Fall, wo die 
Daten nicht so einfach zwischengespeichert werden können 
wie auf einer Floppy. Ein paar Bytes im Betriebssystem, 
die nicht benutzt werden (Puffer für zweiten Rekorder 
o.ä.) reichen meist nicht aus, und sind auch nur für 
Zahlen zwischen 0 und 255 geeignet. 

Hier bietet sich die Möglichkeit der Parameterübergabe 
über den Bildschirm an. Die Daten werden dabei vom ersten 
Programm auf den Bildschirm geschrieben und vom zweiten 
Programm von dort eingelesen. Um das ganze automatisch zu 
machen, müssen jedoch einige Kunstgriffe angewendet wer¬ 
den, und der Rechner muß einen Tastaturpuffer besitzen 
(beim Commodore 64 zehn Zeichen). 

Vom aufrufenden Programm werden die Daten mittels PRINT- 
Befehlen auf den Bildschirm ausgegeben, wobei zu beachten 
ist, daß der INPUT-Befehl des aufgerufenen Programmes ein 
’?' vorgibt, und in der Regel erst ab dem zweiten Zeichen 
nach dem '?' einliest. Daher dürfen die beiden ersten 
Stellen einer Bildschirmzeile keine zu übertragenden Daten 
enthalten. Um Platz zu sparen, können mehrere Variablen 
hintereinander in eine Zeile geschrieben werden. In diesem 
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Fall ist nur sicherzustellen, daß im aufgerufenen Programm 
diese Variablen auch mit einem INPUT-Befehl aufgerufen 
werden ( INPUTA,B$,C%,D,E,F$... ). Die Daten am Bildschirm 
sind dabei durch Kommata zu trennen (atjer ohne Leerzei¬ 
chen). 

Sind die Daten vom aufrufenden Programm auf dem Bildschirm 
ausgegeben, so ist für jede Bildschirmzeile ein CHR$(13) 
(RETURN-Taste) in den Tastaturpuffer (Speicherzellen 631 
bis 640) zu schreiben mit: 


EOR 1=0 TO AZ : REM AZ - Anzahl der Zeilen 

POKE 631+1,13 
NEXT 


Außerdem muß noch die Anzahl der gültigen Zeichen des 
Tastaturpuffers im dafür vorgesehenen Byte des Betriebs¬ 
system-RAM abgespeichert werden, damit die ’RETURN- 
Tastendrücke' auch anerkannt werden. Dies geschieht mit 


POKE 198,1 


Es ist selbstverständlich, daß nach diesen Operationen 
keine 'Hand-Eingabe' über die Tastatur mehr erfolgen darf, 
da einerseits bei einer Eingabe zuerst die CHRi(13) des 
Tastaturpuffers verarbeitet werden, und andererseits für 
das aufrufende Programm der Tastaturpuffer dann nicht mehr 
korrekt gefüllt ist. 

Im aufgerufenen Programm müssen dann die INPUT-Befehle an 
der richtigen Stelle des Bildschirms - notfalls mittels 
Cursorpositionierung - ausgegeben werden. Die beste 
Möglichkeit ist vor der Ausgabe im aufrufenden Programm 
ein 'Clear Screen / CER' und im aufqerufenen Programm ein 
'HOME'. 

Da der Rechner nach einem INPUT-Befehl den Tastaturpuffer 
abarbeitet (bis zu einem CHR$(13)), werden die Daten dann 
automatisch eingelesen. Steht kein Tastaturpuffer zur Ver¬ 
fügung, genügt das Drücken der RETURN-Taste. 

Da der Commodore 64 nur einen Tastaturpuffer von zehn 
Zeichen aufweist und 78 Zeichen je Eingabezeile zur Verfü¬ 
gung stehen, lassen sich somit 780 Zeichen übertragen. 
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2.1.4.4 Parameterübergabe über freien RAM-Bereich 


Eine einfache Möglichkeit, Parameter an Folgeprogramme zu 
übergeben, ist, die notwendigen Bytes einfach in einen 
Speicherbereich zu schreiben, der vom Basic-Interpreter 
nicht beim Laden des Overlays verändert wird. Dazu eignen 
sich außer den Bereichen, die auch für Maschinenprogramme 
geeignet sind, unter anderem noch die Zellen des Basic- 
Eingabepuffers ab $0200=512. Wollen Sie z.B. das Tagesda¬ 
tum an das Folgeprogramm übergeben, so schreiben Sie im 
ersten Programm: 


100 P0KE512,T : P0KE513,M : P0KE514,0 
110 LOAD'FOLGEPROGRAMM" ,8 


wobei 0 natürlich die '19' der Jahreszahl nicht enthalten 
darf, und im Folgeprogramm: 


100 T=PEEK(512) : M=PEEK(513) : J=PEEK(514) 


Wenn Sie die erweiterten POKE und PEEK-Funktionen aus 
Kapitel 2.2.3 geladen haben, können Sie natürlich auch den 
Bereich unter dem Basic-Interpreter oder dem KERNAL zur 
Übergabe verwenden. 


2.1.4.5 Parameterübergabe über temporäre Dateien 


Sind die Daten zu umfangreich, um über den Bildschirm oder 
einen freien RAM-Bereich übertragen zu werden, so hilft 
nur die - relative zeitaufwendige - Methode über temporäre 
Dateien. Das Verfahren funktioniert ähnlich der Übergabe 
über den Bildschirm, da das aufrufende Programm auch seine 
Daten mittels PRINT-Anweisungen (hier PRINT#) übergibt und 
das aufgerufene Programm dies mit INPUT-Befeh len (hier 
INPUT#) übernimmt. Da es sich in der Regel um fortlaufende 
Daten handelt, genügt hierzu eine sequentielle Datei. Der 
Ablauf könnte wie folgt aussehen: 
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100 OPEN 2,8,2,DN$+",S,W’ 

110 PRINT#2,A’ ,"B%’ ,’C$‘ ,’D(2)' /E’ , 'GS" ,’F% 
120 CL0SE2 


Durch Ausgabe des in Anführungszeichen als Trennzei¬ 
chen (De 1 iitiiter) , wird das Lesen der Daten durch den 
INPUT-Befehl ermöglicht. Das Einlesen muß in der gleichen 
Reihenfolge geschehen und die Datei muß auch zum Lesen 
geöffnet werden mit: 


100 OPEN 2,8,2,DN$+’,S,R’ 

110 INPUT#2,A,B%,C$,D(2),E,G$,F% 
120 CL0SE2 


Beim OPEN-Befehl wird mit der ersten Ziffer jeweils die 
logische Dateinummer, mit der zweiten die Gerätenummer und 
mit der dritten die Sekundäradresse besetzt. Für DN$ 
können Sie einen beliebigen Dateinamen mit den üblichen 
Einschränkungen heranziehen. Der Teil in den Anführungs¬ 
zeichen bedeutet nur sequentielle Datei (S), Lesen 
(READ/R) und Schreiben (WRITE/W). 


2.1.5 DATA-Anwelsungen generieren 


500 PRINT"tCLRJMACHE DATA-ZEILEN AUS SPEICHERINHALTE 


N" <096> 
510 INPUT"tDOWNJSTARTADRESSE IM SPEICHER";SA <038> 
520 INPUT"ANZAHL BYTES";AB <214> 
530 INPUT"STARTZEILE EUER DATA";SZ <024> 
540 IF SZrZOO THEN 530 <223> 
550 PRINT" CCLR1"; < 211> 
560 FOR Z=0 TO (AB-l)/9 <041> 
570 PRINT MIDT(STR^:(SZ + Z) ,2) ; "Dfl"; <211> 
580 FOR 1=0 TO 8 <206> 
590 IF 9*Z+I >= AB THEN 620 <050> 
600 PR INT MI(STRT (PEEK (SA+9*Z +1) ) , 2) ; " , " ; < 234 > 
610 NEXT I <047> 
620 PRINT CHRT(20) <129> 
630 POKE 632+Z,13 <062> 
640 NEXT Z <094> 
650 POKE 631,19 <083> 
660 POKE 198,Z+1 <048> 
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Mit diesem Programm können DATA-Zeilen aus Speicherinha1- 
ten generiert werden, was besonders natürlich bei den 
Sprites von Vorteil ist, wenn diese schon im Speicher ste¬ 
hen, was aber auch bei anderen Programmen (z.B. hersteilen 
eines Basic-Loaders für ein Maschinenprogramm) sinnvoll 
eingesetzt werden kann. 

Zunächst wird die Startadresse im Speicher abgefragt, die 
die absolute Stelle im RAM angibt. In der Variablen AB 
wird die Anzahl der Bytes abgefragt, für die die DATA-Sta- 
tements generiert werden sollen. Als letztes wird noch die 
Zeilennummer erfragt, in der die DATA-Statements beginnen 
sollen. Die Startzeile für die Datas muß natürlich größer 
als 700 sein, da sonst das Programm selbst überschrieben 
wird. 

In der folgenden Schleife werden alle Bytes in Neunergrup¬ 
pen in DATA-Zeilen gepackt. Zunächst wird in Zeile 570 die 
Zeilennummer der DATA-Zeile und der Befehl DATA am Bild¬ 
schirm ausgegeben. In einer weiteren Schleife werden dann 
die SpeicherinhaIte ausgelesen und als Dezimalzahl am 
Bildschirm durch Komma getrennt dargestellt. In Zeile 620 
wird noch das letzte Komma in der DATA-Zeile eliminiert. 
Zeile 630 schreibt in den Tastaturpuffer eine '13' hinein, 
womit später - nach Abschluß des Programms - für jede 
DATA-Zeile ein RETURN ausgelöst wird, wodurch die Zeile 
dann in den Speicher übernommen wird. In Zeile 650 wird 
noch das erste Zeichen im Tastaturpuffer mit dem Befehl 
'HOME' belegt, und in Zeile 660 wird die Anzahl der gülti¬ 
gen Zeichen im Tastaturpuffer festgelegt. 


2.1.6 Olsk-Status bestimmen 


Der Disk-Status kann sehr leicht über den sogenannten Kom¬ 
mandokanal (Kanal 15) erfragt werden. Da der Befehl INPUT 
- und somit auch INPUT# - im Direktmodus nicht zugelassen 
ist, muß auf alle Fälle ein kleines Programm geschrieben 
werden. Wenn Sie - wie bei Zeile 30 in unserem Beispiel - 
den Kommando-Kanal schließen, werden auch alle anderen 


Floppy-Dateien geschlossen; 

geboten. 

hier ist 

also Vorsicht 

10 OPEN 15,8,15 


<005> 

20 INPUT#15,A,B^:,C,D 


< 220 > 
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30 CLOSE 15 <036> 
40 PRINT"FEHLERNUMMER :",A <054> 
50 PRINT"FEHLERTEXT :",BT <214:> 
60 PRINT"SPUR :",C <012> 
70 PRINT"SEKTOR :",D ;:165> 


Die Fehlermeldung gliedert sich - in dieser Reihenfolge - 
in die Fehlernummer, den Fehlertext und gegebenenfalls 
werden auch noch (z.B. bei READ ERROR) Spur und Sektor des 
Fehlers angegeben (in der Regel sind diese beiden Werte 
'0'). Statt der Spur wird aber auch z.B. bei dem Löschen 
von Dateien die Anzahl der gelöschten Dateien (EILES 
SCRATCHED) angegeben. 

Eine Liste der Eehlerme Idungen, sowohl vom Rechner als 
auch der Eloppy, finden Sie im Kapitel 5. 


2.1.7 Eingebaute Uhr 


Wie auch die anderen Commodore-Rechner, hat der Commodore 
64 eine eingebaute Uhr, die mit einer potentiellen Ge¬ 
nauigkeit von 1/60 Sekunde arbeitet. Die tatsächliche Ge¬ 
nauigkeit dieser Uhr ist jedoch nicht sehr hoch, die Ab¬ 
weichung kann bis zu 30 Minuten pro Tag betragen. Während 
Floppy-Operationen steht die Uhr fast still. Wie Sie ge¬ 
nauere Zeiten erhalten lesen Sie in Kapitel 2.2.11. 

Für die Uhrzeit werden in der Zero-Page drei Byte verwen¬ 
det: die Adressen 160 bis 162 ($A0-$A2). Einen Zugriff von 
Basic auf die Uhrzeit haben Sie über die Variablen TI und 
TI$. Das Setzen der Uhrzeit geht ausschließlich über die 
Variable TI$, die insgesamt sechs Zeichen umfaßt, je zwei 
Zeichen für Stunden, Minuten und Sekunden. Eine Zuweisung 
an die Variable TI$ muß immer sechs Zeichen beinhalten. 
Eolgendes kurze Programm bringt Ihnen jeweils die aktuelle 
Uhrzeit in die linke obere Ecke auf dem Bildschirm: 


500 PRINT "CCLR1" <1O1> 
510 INPUT"ZEIT HHMMSS";TIT ::208> 
520 T^=TIT <245> 
530 PRINT"CHOMEJ";LEFTT(TT,2) ; ;MIDT ( TT,3,2 ) ; ";R 

IGHTT(TT,2) ::086> 
540 G8TQ 520 <062> 
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Die Zuweisung in Zeile 520 geschieht aus Gründen der Kon¬ 
sistenz. Während das Basic arbeitet, wird die Uhr trotzdem 
weiter gesetzt, so daß während des Bearbeitens in Zeile 
530 sich die Uhrzeit ändern kann. 

Die Variable TI ist ein Zähler, der seit Einschalten bzw. 
Setzen der Uhr jeweils in Schritten von 1/60 Sekunde ge¬ 
ändert wird. Folgendes kurzes Programmstück leistet das 
gleiche wie obiges Programm: 


10 PRINT "CCLR}" <122> 
20 INPUT"ZEIT HHMMSS";TIT <229> 
30 T = TI <193> 
40 H = INT(T/216000) <082> 
50 M = INT((T-H*216000)/3600) <026> 
60 S = INT((T-H*216000-M*3600)/60) <052> 
70 PRINT "CHOMEl"; : X=H : GQSUB 200 <0B6> 
80 PRINT ; X=M : GQSUB 200 <140> 
90 PRINT : X=S : GQSUB 200 <156> 
100 GQTQ 30 <080> 
200 PRINT RIGHT4:("00" + MID4:(STR^:(X) ,2) ,2) ; <072> 
210 RETURN <096> 


Besonders hier ist die Übergabe der Zeit TI an eine 
gesonderte Variable (T) wichtig, da während des weiteren 
Programmlaufes sicherlich mehr als 1/60 Sekunde vergeht. 


2.1.8 Zufallsgenerator 


Die Basic-Funktion RND arbeitet je nach Vorzeichen des 
Argumentes unterschiedlich. 

Für negative Argumente ist der Wert nicht zufällig, son¬ 
dern eine Funktion des Arguments. 

Für positive Argumente wird der neue Zufallswert aus dem 
alten durch einen einfachen Algorithmus gebildet. Das 
Setzen des Startwertes kann durch einen Aufruf der RND- 
Funktion mit negativen Argumenten erfolgen. 
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Das Argument 0 bewirkt, daß die Zufallszahl abhängt von 
dem momentanen Stand des Timers A im CIAl und dem Stand 
der Uhr (Sekunden und 1/10 Sekunden) und diesem CIA. Es 
ist einzusehen, daß weder für den Argumentwert 0 noch für 
positive Argumente eine optimale Verteilung der Zufalls¬ 
werte vorliegen kann. Einen etwas besseren Verlauf erhält 
man, wenn man das Rauschregister des SID verwendet. Das 
folgende kleine Programm ergibt zufällige Werte zwischen 0 
und 255. 


100 S1=54272 : REM BASISADRESSE SID <216> 
110 POKE SI+24,12B : REM STIMME 3 STILL <203> 
120 PÜKE SI+1B,12B : REM STIMME 3 RAUSCH <022> 
130 POKE SI+15,255 ; REM FREQUENZ ST. 3 <206> 
200 PRINT PEEK(SI+27) : REM ZUFALLSWERT <079> 
210 GOTO 200 : REM ENDLOSSCHLEIFE <190> 


Kehren wir aber nun wieder zu den RND-Zufa1lsgenerator zu¬ 
rück. In idealisierter Form haben die Dichtefunktion und 
die Verteilungsfunktion dieses Zufallsgenerators folgendes 
Aussehen: 



Bild 2.1.8-1 ; Dichtefunktion und Verteilungsfunktion von 
X=RND(1) 
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Wollen Sie andere Dichtefunktionen, so können Sie - weil 
die Verteilungsfunktion linear ist - Ihre gewünschte Zu¬ 
fallsfunktion erhalten, indem wir die Umkehrfunktion der 
gewünschten Verteilungsfunktion der RND-Funktion nach¬ 
schalten. 

Dazu ein Beispiel: Wir wollen eine Zufallsfunktion mit 
einem Wertebereich von 100 bis 200 und einer parabel¬ 
förmigen Dichtefunktion, d.h. Werte, die näher bei 100 
oder 200 liegen, sollen häufiger kommen als Werte um 150. 
Dazu müssen wir zunächst die Verteilungsfunktion unserer 
Dichtefunktion bilden, die definiert ist als Integral von 
'-unendlich' bis X über die Dichtefunktion. Die folgenden 
Bilder sollen dies verdeutlichen. 



Bild 2. 1.8-2 : Dichtefunktion und Verteilungsfunktion des 
Beispieles 


Die Berechnung der Umkehrfunktion geschieht entweder gra¬ 
fisch durch Spiegelung der Abbildung an der Winkelhalbie¬ 
renden oder durch algebraische Auflösung. Die Umkehrfunk¬ 
tion ist nur dort definiert, wo die Funktion streng mono¬ 
ton steigt, hier also von 0 bis 1. 

Nun müssen wir noch die Umkehrfunktion der Verteilungs¬ 
funktion bilden. Da die Dichtefunktion quadratische Form 
hat, ist die Verteilungsfunktion eine kubische Parabel und 
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2x-1 


für 0 < X < 0,5 
für 0.5 < X < 1 


Bild 2.1.8-3 ; Umkehrfunktion der Verteilungsfunktion des 
Beispieles 


somit die Umkehrfunktion der Verteilungsfunktion eine 
Kubikwurzelfunktion. Das entscheidende Resultat ist die 
Funktionsgleichung der Umkehrfunktion. Diese wollen wir 
gleich als Basic-Funkt ion FNUF wie folgt definieren: 


DEF FNUF(X)=150+SGN(2*X-l)*50*(ABS(2*X-l)**(l/3)) 

Bemerkung: '**' ist der Potenzierungsoperator 'hoch'. Die 
Konstruktion mit SGN() und ABS() ist notwendig, um die 
richtige Kubikwurzel zu erhalten, wenn 2x-l negativ ist. 


Durch FNUF(RND(1)) erhalten wir nun Werte, die unserer 
gewünschten Dichtefunktion genügen. Das eben beschriebene 
Verfahren ist vielleicht etwas umständlich, aber es eignet 
sich für beliebige Wertebereiche und Dichtefunktionen, da 
es sehr allgemein gehalten ist. Bei der Realisierung als 
Basic-Programm wird allerdings manchmal die Umsetzung der 
Funktionen in eine Basic-Zeile Schwierigkeiten bereiten. 
Dann muß man notfalls den Weg beschreiten und den Funk¬ 
tionswert in einem Unterprogramm berechnen, wo man mehr 
Platz zur Formulierung hat. 
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2.1.9 Zeichensatz ändern 


Zuerst zeigen wir ein kleines Unterprogramm, mit dem Sie 
den Zeichensatz aus dem ROM in den RAM-Bereich ab $E000 = 
57344 kopieren können. Danach beschreiben wir die notwen¬ 
digen POKE-Befehle zur Verlagerung des Zeichengenerators 
und des Video-RAM. Zum Schluß zeigen wir Ihnen noch ein 
Beispiel für neue Zeichen. 


1000 POKE 56333,1:REM IRQ AUS <129> 
1005 P=PEEK(1) <054> 
1010 POKE 1,P AND 251:REM CHAREN <250> 
1020 FOR 1=53240 TO 57343 <043> 
1030 POKE I+4096,PEEK<I) :REM KOPIEREN <021> 
1040 NEXT <150> 
1045 POKE 1,P <093> 
1050 POKE 56333,129:REM IRQ EIN <01B> 
1060 RETURN <1B2> 


Dieses Unterprogramm schaltet zunächst die Quelle für 
Interrupts aus und setzt im Prozessorport die Leitung 
CHAREN auf 0. Dann wird der gesamte Zeichengenerator um 
4096 Byte nach hinten verlegt und anschließend die 
ursprünglichen Werte für den Prozessorport und das 
Interruptkontroll-Register wieder hergestellt. Dieses 
Unterprogramm ist nicht notwendig, wenn Sie die Basic- 
Erweiterungen aus den Kapitel 2.2.4 und 2.2.5 geladen 
haben. Dann nämlich können Sie statt 'GOSUB 1000' 
schreiben 'CHARKOP:SWAP$EOOO,$D000,$ 1000'. 


90 V=5324B <104> 
100 GOSUB 1000: REM CHARKOP: SWAP^^EOOO, *D000, »1000 <03B> 
110 POKE 56576,14B:REM VIC-BEREICH <165> 
120 POKE V+24,57:REM ADR.-SCHALTER IMVIC <214> 
130 POKE 64B,204 <125> 
140 PRINT"{CLR}" <252> 


In Zeile 100 wird der Zeichensatz kopiert, in Zeile 110 
der Arbeitsbereich des VIC in den letzten 16 KB-Block 
verlegt, in Zeile 120 die Zeichengenerator-Basisadresse 
auf das achte und neunte KByte des VIC-Arbeitsbereiches 
gesetzt und schließlich in Zeile 130 dem Betriebssystem 
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iti itgete i It, daß sich das Video-RAM nun in der 204. Page 
(ab $0000) befindet. Da dort aber noch Undefinierte 
Zeichen stehen, wird der Bildschirm noch in Zeile 140 
gelöscht. 


200 CH=77:G0SUB 500 <207> 

210 CH=e7:G0SUB 500 <21B> 

399 END <016> 

400 DATA 14, 6, 10,112,144,144, 96, 0 <169> 

410 DATA 56, 6B, 6B, 56, 16, 56, 16, 0 <109> 

500 FGR 1=0 TG 7 <124> 

510 READ A <199> 

520 POKE 57344+B*CH+I ,A <033> 

530 NEXT <150> 

540 RETURN <172> 


In diesem kleinen Programmstück zeigen wir Ihnen, wie man 
die Zeichen für SHIFT-M und SHIFT-W durch das männliche 
und weibliche Symbol ersetzen kann. Dazu benötigen wir 
zunächst ein kleines Unterprogramm ab Zeile 500 das aus 
DATA-Zeilen 8 Werte ausliest und ab einer vorgegebenen 
Position (57344+8*CH) einträgt. Die Bildschirmcodes der 
Zeichen SHIFT-M und SHIFT-W sind 77 bzw. 87, die Daten für 
die neuen Zeichen befinden sich in den Zeilen 400 und 410. 

Wenn Sie mit dem Cursor über die neuen Zeichen gehen, mer¬ 
ken Sie folgende Besonderheit: Das Reverse-Zeichen ist 
noch das ursprüngliche SHIFT M bzw. W. Durch einen weite¬ 
ren POKE-Befehl ’POKE 57344+1024+8*CH+i, NOT A' in Zeile 
525 können Sie dies abstellen. Sie sehen daraus, daß Sie 
insgesamt 512 neue Zeichen definieren können (Umschaltung 
mit RVS bzw. SHIET/C=). ‘ 


2.1.10 Sprlte-Edltor 


Die Verwendung von Sprites ist Sache des Anwenderprogram¬ 
mes. Für Beispiele sei auf die Buchreihe 'Das Commodore 
64-Buch, Band 1, Band 3 und Band 7' hingewiesen. Aber zur 
Verwendung von Sprites wollen diese zuerst einmal entwor¬ 
fen sein. In diesem Kapitel stellen wir Ihnen einen kom¬ 
fortablen Editor für mehrfarbige Sprites vor. 

Haben Sie schon einmal ein Sprite entworfen? Dann kennen 
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Sie sicher auch die Rechnerei nach dem Entwerfen, bei der 
Sie jedes einzelne Byte des Sprites ausrechnen müssen. 
Sieht das Sprite, das Sie mühsam berechnet haben, durch 
die winzige Darstellung anders aus, als man es sich vor¬ 
gestellt hat, so verliert man leicht den Spaß am Program¬ 
mieren. Mit dem folgenden Programm werden Sie bestimmt 
nicht den Freude am Programmieren verlieren. Im Gegenteil; 
es wird Ihnen Spaß machen, diese 'digitalen' Bilder zu 
entwerfen und zur Verwendung in anderen Programmen werden 
die BATA-Zeilen gleich mitgeliefert. 


Bedienungsanleitung 

Haben Sie das Programm fehlerlos eingetippt oder einge¬ 
laden und mit RUN gestartet, so müssen Sie sich zwischen 
der Wahl eines einfarbigen oder eines Multicolor-Sprites 
entscheiden. Haben Sie sich für Letzteres entschieden, so 
müssen Sie die drei Farben angeben, die verwendet werden 
sollen. Bei einem einfarbigen Sprite wird hellblau als 
Farbe gewählt. Im Anschluß daran erfolgt der Aufbau des 
Spr iteed itors. In der linken oberen Ecke des Grafikrahmens 
erscheint eine Art Gursor, der mit den Cursortasten wie 
gewohnt gesteuert wird. 

Haben Sie den Multicolor-Modus gewählt, so können Sie 
durch Drücken der Tasten 1 bis 3 einen Punkt mit der ent¬ 
sprechenden Farbe setzen. Im Einfarben-Modus wird ein 
Punkt durch Drücken der A-Taste gesetzt. Gelöscht wird ein 
Punkt durch Drücken der Z-Taste. Zur gleichen Zeit, zu der 
Sie einen Punkt setzen, wird der entsprechende Punkt im 
Sprite gesetzt. Das Bild des Sprites wird rechts oben 
neben dem Grafikrahmen in Originalgröße und zusätzlich in 
Y-Richtung, X-Richtung und in X-/Y-Richtung in doppelter 
Größe dargestellt. So können Sie leicht kontrollieren, ob 
das Sprite Ihren Wünschen entspricht. Ist dies nicht der 
Fall so können Sie dieses durch Drücken der CLR-Taste 
löschen. 


Sprite-Bytes übernehnen 

Sind Sie der Meinung, Ihr Sprite vollendet zu haben, so 
drücken Sie 'B'. Dabei werden die Sprite-Bytes gelesen und 
in DATA-Zeilen ab der Zeile 1000 abgelegt. Das Programm 
steht Ihnen nun für einen neuen Spriteentwurf zur Verfü¬ 
gung. 
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Programm löschen 

Haben Sie genug Sprites entworfen, so drücken Sie einfach 
’E'. Hierbei wird das gesamte Programm gelöscht. Doch 
keine Angst, die Sprite-Bytes ab der Zeile 1000 werden 
nicht gelöscht. Sie können diese sofort in Ihrem eigenen 
Programm übernehmen. 


Programmaufbau 


Wahl zwischen Multicolor und einfarbigem Sprite 
(sofern Multicolor-Modus gewählt) Farbwahl 
Grafik erstellen und die Sprites einschalten 
Tastaturabfrage und Cursorbewequng 
Punkt setzen (Ein-Farben-Modus) 

Punkt auf dem Bildschirm und der entsprechende 
im Sprite wird gelöscht. 

ein Punkt mit entsprechender Farbe, je nach 
Tastenwahl (1-3), auf dem Bildschirm und im 
Sprite setzen (Multicolor-Modus) 

Sprite-Bytes in DATA-Zeilen übernehmen 
119 Programm bis Zeile 119 löschen 

Wenn Sie in Zeile 102 die Variable Z durch einen 
anderen Wert ersetzen, können Sie den Zeilenanfang der 
Sprite-Bytes verändern. 


3 - 

5 

6 - 

14 

25 - 

50 

53 - 

75 

77 - 

78 

81 - 

85 

87 - 

92 

94 - 

99 

114 - 

119 

Übrig 

ens: 


Verwendete Adressen im RAM 


198 


631 - 

640 

646 


832 - 

895 

53248 - 

53255 

53264 


53269 


53271 


53276 


53277 


53280 


53281 


53285 


53286 


53287 - 

53290 


Anzahl der gedrückten Tasten 
T astaturpuffer 
augenblickliche Cursorfarbe 
Kassettenpuffer als Spriteblock 13 
Koordinate der Sprites 1-4 
höchstes Bit für X-Koordinate 
Sprite ein/aus 

Sprite in X-Richtung verdoppeln 

Sprite Multicolor 

Sprite in Y-Richtung verdoppeln 

Ra ndfarbe 

Grundfarbe 

Farbe Multicolor 1 

Farbe Multicolor 2 

Farbe der Sprite 1-4 
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VariablenQbersicht 


F(0-2) 

A 

B 

N 

X 

Q 

Y 


Farbe 1-3 

BiIdschirmanfangsadresse im Grafikrahmen für 
Graf ik 

Bildschirmanfangadresse im Grafikrahmen für Farbe 
augenblickliche Spalte, in der der Cursor ist 
(0,8,16) 

augenblickliche Teilspalte der Spalte N(0-7) 
augenblickliche Byte des Sprites, indem der Cur¬ 
sor ist 

augenblickliche Zeile (*40) 


Llstlng 


1 CLRiPOKE 53269,0:Z=1:C=32 <222> 

2 POKE 53281,0:POKE 53280,0:PRINT"CCLR,BLUEJ" <240> 

3 PRINT"f2D0WN,4RIGHT,RVS8N}MULTIC0L0R SPRITE ?" <168> 

4 WA IT 203,63:GET <009> 

5 IF J4<>"J"THEN F (2) =14: POKE 53276,0: GOTO 17 :;214> 

■ 6 PRINT" <:CLR,3D0WN,4RIGHT,RVS0N,GREEN}FARBE 1:<;RV0FF,S 

PACE,RVSON,WHITE,2SPACE,RVOFF J" < 083 > 

7 PRINT" <:D0WN,4RIGHT,BLUE,RVSON>WAHL MIT OCRVOFFl" <188> 

8 PRINT"CDOWN,4RIGHT,RVSON}W=WEITERL3SPACE,RV0FF}" <114> 

9 GET A^:IF A4=""THEN 9 <015> 

10 IF A^=","THEN POKE 646,PEEK(646)-1:IF PEEK(646)=0 T 

HEN POKE 646,16 <128> 

11 IF A^="."THEN POKE 646,PEEK(646)+1:IF PEEK(646)=255 

THEN POKE 646,238 <036> 

12 IF A4="W"THEN POKE 1154,PEEK(1154)+1:F(A)=PEEK(646) 

:A=A+1:IF A=3 THEN 15 <239> 

13 PRINT" (;H0ME,3D0WN, 13RIGHT,RVSON,2SPACE,RV0FFJ" <077> 

14 GOTO 9 <208> 

15 POKE 53285,F(1):POKE 53286,F(0) <109> 

16 POKE 53276,15:Z=2 <184> 

17 FOR A=0 TO 62:POKE 832+A,0:NEXT <050> 

18 FOR A=0 TO 3:P0KE 53287+A,F(2):POKE 2040+A,13:NEXT <021> 

19 POKE 53248,247:POKE 53249,75 <233> 

20 POKE 53250,24:POKE 53251,75 <165> 

21 POKE 53252,247:POKE 53253,109 <015> 

22 POKE 53254,24: POKE 53255,109 <221> 

23 POKE 53277,10:POKE 53271,12 <165> 

24 POKE 53264,10 <064> 

25 REM *******GRAFIK ERSTELLEN******* <086> 

26 PRINT" (:CLR,LIG. BLUE,DOWN, 2RIGHTJ0123456789012345678 

90123" <079> 


2 7 PR INT" CR IGHT > g************************'^***'g******' g 


" <067> 

28 FOR A=0 TO 1:FOR B=0 TO 9 <081> 

29 PRINT" <:LEFT>"B"tLEFT>-(:24SPACEJ-": NEXT B,A <223> 

30 PRINT" CRIGHTI' 7**********************»*V rHnMF 1" <149> 

31 A^="<27RIGHT>" <137> 

32 PRINT A:f" <:2D0WN}-<3SPACE>-f6SPACE>-" <251 > 
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33 PRINT A:T"-C3SPACE>-16SPACE>-" 

34 PRINT A:T" 1UP>-13SPACE>3<:6SPACE>3" 

35 PRINT Pti " g***4-»-)f***»P " 

;6 PRINT A^" lUP>-<:3SPACE}-t6SPACE}-" 

37 PRINT A$:"-13SPACE>3l6SPACE>3" 

38 PRINT A^" <:UP>zL<3SPACE>3l6SPACE>3" 

39 PRINT A:T"-C3SPACE>-C6SPACE>3" 

40 PRINT A^" tUP>3l3SPACE>3<:6SPACE>3" 

41 PRINT A$:"-13SPACE>-16SPACE>-" 

42 PRINT A:t" f( IP>7 '***F******7 fDnUJN> " 

43 PRINT A^"CUP,RVSON,ORANGE}A=SETZEN<4SPACE,RV0FF>" 

44 PRINT A^"CRVSON,ORANGE>Z=L0ESCHENC2SPACE,RVQFF>" 

45 PRINT A^" CUP,RVSON}B=BEARBEITENCRVOFF}’' 

46 PRINT A^"CRVS0N}E=ENDEC6SPACE,RV0FF1" 

47 IF J^<>"J"THEN 51 

48 POKE 646,F (0) : PRINT A^:" CRVSONl 1=FARBE ICRVOFFl" 

49 POKE 646,F(1):PRINT A^"CUP,RVS0N}2=FARBE 2CRV0FF}" 

50 POKE 646,F(2);PRINT A^"CRVS0N>3=FARBE 3CRV0FF}" 

51 POKE 53269,15 

52 REM *******TASTATURABFRAGE ******* 

53 A=1146:B=55418:01=160;GOTO 55 

54 GET A^:IF A^=""THEN 54 


55 POKE A+Y+X+N,C1:POKE B+Y+X+N,C2 

56 Q=Y/40*3+INT(N/8) 

57 IF A:T=" CUP>"TUEN Y=Y-40 

58 IF A^="CDOWN>"THEN Y=Y+40 

59 IF A:T=" CRIGHT>"THEN X = X + Z; IF X>7 TUEN X=0;N=N+8;IF 
N>16 TUEN N=0 

60 IF A^="CLEFT}"THEN X=X-Z:IF X<0 TUEN X=8-Z:N=N-a:IF 

N<0 TUEN N=16. 

61 IF A^="A"THEN 76 

62 IF A^="Z"THEN 80 

63 IF A^="CCLR}"THEN 93 

64 IF AT="B"THEN 100 

65 IF A^:="E"THEN 113 

66 IF A^="1"THEN 87 

67 IF A:T="2"THEN 88 

68 IF A^="3"THEN 89 

69 IF Y<0 TUEN Y=760 

70 IF Y>760 TUEN Y=0 

71 IF X>23 TUEN X=0 

72 IF X<0 TUEN X=24-Z 

73 C1=PEEK(A+Y+X+N) :P0K;E A+Y+X+N,102 

74 C2=PEEK(B+Y+X+N) :POK.E B+Y+X+N,14 

75 GOTO 54 

76 REM ***********N BET************** 

77 POKE A+X+Y+N,160:POKE B+X+Y+N,14 

78 POKE 832+0,PEEK(832+Q)0R 128/(2tX) 

79 GOTO 73 

80 REM *******SPRITE LOESCHEN******** 

81 K=Z-1 

82 POKE A+X+N+Y+K,32:P0KE B+X+N+Y+K,14 

83 POKE 832+0,PEEK(832+Q)AND(255-(2T(7-X-K))) 


<250> 

<140> 

<094> 

<142> 

<254> 

< 144 > 
<000> 
<146> 

< 002 > 

< 122 > 

<123> 

<244> 

< 178 > 
<039> 
<121 > 
<014> 

< 129 > 
< 101 > 

< 111 > 
<077> 
<108> 
<093> 
<103> 
<202> 
<074> 

<157> 

< 042 > 

< 120 > 
<141> 
<203> 
<160> 
<168> 
<111> 

< 114> 
<117> 
<091> 
<090> 
<033> 

< 042 > 
<142> 
< 100 > 
<061 > 
<047> 
<134> 
<213> 
<066 > 

< 125> 
<132> 
<067> 
<082> 
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84 K=K-1:IF K>=0 THEN 82 <044> 

85 GOTO 73 <072> 

86 REM ******')HH(-MULTIBET************* <248> 

87 POKE 832+Q,PEEK(832+D)OR 128/(2TX)+128/(2T(X+1)):80 

TO 90 <177> 

88 POKE 832+Q,PEEK(832+D)OR 128/(2T(X+1)):GOTO 90 <055> 

89 POKE 832+Q,PEEK(832+Q)0R 128/(2tX):GOTO 90 <012> 

90 FOR 0=0 TO 1 <213> 

91 POKE A+X+N+Y+C,160:POKE B+X+N+Y+C,F(VAL(AT)-1) <247> 

92 NEXTiGOTO 69 <016> 

93 REM **************"CCLR>"************* <049> 

94 FOR T=0 TO 62:P0KE 832+T,0:NEXT ::165> 

95 FOR Y=0 TO 19 <041> 

96 FOR X=0 TO 23 <036> 

97 POKE A+X+Y*40,32:POKE B+X+Y*40,0 <099> 

98 NEXT X,Y:X=0:Y=0 <170> 

99 GOTO 73 <086> 

100 REM ********DATA ZEILE********** <122> 

101 PRINT"<CLR>":POKE 53269,0 <011> 

102 U=0:Z= 1000 <164> 

103 FOR A=0 TO 7 <230> 

104 IF 0=56 AND A=6 THEN NEXT:GOTO 108 <194> 

105 B=PEEK(832+A+U) <247> 

106 DT=STRT(B):FT=FT+MID^(DT,2,3)+"," <159> 

107 NEXT <237> 

108 IF U>57 THEN PRINT"tCLR,BLACK}102 0=0:Z="Z:PRINT"R 

ON":GOTO 112 <243> 

109 PRINT" CCLR,BLACK >"STRT(Z)+" DATA"+FT+"CLEFT,SPACE > 

" <131> 

110 PRINT"102 0="0+B":Z="Z+1" <019> 

111 PRINT"GOTO 101" <023> 

112 POKE 631,19:POKE 632,13:POKE 633,13:POKE 634,13:PO 

KE 198,4:END <187> 

113 REM *********LOESCHEN********** <111> 

114 A=1:B=11:P0KE 53269,0 <092> 

115 PRINT"CCLR,BLACK!114 A="B+1":B="B+11" <017> 

116 FOR I=A TO B:PRINT I:NEXT <239> 

117 IF B<100 THEN PRINT"G0T0114" <217> 

118 IF B>100 THEN POKE 646,14:PRINT"LIST" <071> 

119 POKE 631,19:FOR 1=1 TO 14:POKE 631+1,13:NEXT:POKE 

198,15 <221> 


2.2 Maschinenroutinen 

In diesem Kapitel wollen wir Ihnen zeigen, wie Sie Ihren 
Rechner mit zusätzlichen Befehlen, Funktionen und Inter¬ 
rupt-Routinen ausstatten können, die in Maschinensprache 
geschrieben sind. Dazu sei zunächst in Kapitel 2.2.1 ein 
Rahmenprogramm vorgestellt, in dem sämtliche zusätzliche 
Befehle und Funktionen mit Namen und Adresse enthalten 
sind, so daß mit diesen Programmen die neuen Befehle wie 
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normale Basic-Befehle aufgerufen werden. Daneben gibt es 
bei einigen Routinen noch die Möglichkeit, diese direkt 
mit SYS aufzurufen. Bei der Beschreibung der Syntax der 
Basic-Erweiterungen ist dies jeweils angegeben. 

Die Beschreibung der einzelnen Maschinen-Routinen wurde 
einheitlich aufgebaut. Zunächst kommt der Name der Erwei¬ 
terung, wobei damit das Label des Maschinenprogramms, das 
die entsprechende Eunktion wirklich ausführt, gemeint ist. 
In der nächsten Zeile erfolgt eine kurze Erläuterung der 
Funktion dieser Erweiterung. In der dritten Zeile wird die 
Syntax, also die Art und Weise, wie der Befehl aufgerufen 
wird, beschrieben. Handelt es sich um eine Funktion, so 
wird extra darauf hingewiesen. Danach folgt die Erläute¬ 
rung der verwendeten Parameter, gefolgt von einem kleinen 
Beispiel. Als nächstes werden die benötigten Hilfsroutinen 
aufgelistet, damit Sie wissen, welche Speicherbereiche Sie 
zusätzlich laden müssen, wenn Sie nur diesen Befehl iso¬ 
liert verwenden wollen. Dazu erfolgt auch die Auflistung 
der belegten Adreßbereiche von den einzelnen Routinen und 
HiIfsroutinen. 

Nach der Abbildung des Source-Listings, in dem die Ziel- 
Adressen für Vorwärtssprünge nicht ausgefüllt sind, folgt 
die funktionale Beschreibung der Erweiterung. 

Wie bekommen Sie nun das Maschinenprogramm in Ihren Rech¬ 
ner? Dazu gibt es drei Möglichkeiten: 

- Sie verwenden einen Assembler und geben die 
benötigten Routinen als Source-Code ein. Dabei 
müssen Sie natürlich auch die benötigten 
Hilfsroutinen sowie die Tabelle der Basic-Sym- 
bole und der Kerna1-Symbole eingeben. Diese 
Methode hat den Vorteil, daß Sie die Routinen 
leicht auf Ihre eigenen Bedürfnisse abändern 
können. 

- Sie bedienen sich eines käuflichen Monitor- 
Programmes und geben die angegebenen Adreßbe¬ 
reiche mit Hilfe des im Anhang abgebildeten 
Hex-Listings direkt als Maschinenprogramm ein. 

- Sie verwenden das Basic-Loader-Programm, das 
sich ebenfalls im Anhang befindet. In diesem 
Loader-Programm sind sämtliche Basic-Erwei¬ 
terungen, die in diesem Buch vorgestellt wur¬ 
den, enthalten. Falls es Ihnen zu viel Mühe 
macht, das gesamte Listing abzutippen (es han¬ 
delt sich immerhin um etwa 7 KByte Maschi¬ 
nenprogramm) können Sie sich die Arbeit er- 
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leichtern, indem Sie nur diejenigen DATA-Zei- 
len eingeben, die für die jeweilige Routine 
und Hilfsroutine benötigt werden. Die Zeilen¬ 
nummer der Data-Zeile entspricht dabei genau 
der Adresse des ersten Bytes dieser Zeile. 
Falls die Grenze des benötigten Bereiches 
mitten in eine Data-Zeile fällt, geben Sie 
bitte die ganze Zeile ein. 


Diese Vorgehensweise wollen wir Ihnen im Beispiel des 16- 
Bit-POKE-Befeh 1s ("DOKE") verdeutlichen. Bei der Beschrei¬ 
bung des DOKE-Befehls steht unter 'Adreßbereich': 


DOKE ; $0457 - $C471 = 50263 - 50289 

FLPINT: $C5EA - $C5FD = 50666 - 50685 


Wenn Sie den Basic-Loader aus dem Anhang verwenden wollen, 
können Sie dann alle DATA-Zeilen weglassen, außer den 
Zeilen 50256 bis 50288 und den Zeilen 50656 bis 50672. 

Die Erweiterung ist dann allerdings nicht mit DOKE, wie 
ein Basic-Befehl, aufrufbar, weil Sie ja den erweiterten 
Basic-Befehls-Dekoder (Adreßbereich 51200 bis 51967) nicht 
geladen haben. Statt dessen können Sie den Befehl mit ‘SYS 
(50263) Adresse,Wert' aufrufen. 

Hier noch eine Übersicht über die globale Aufteilung der 
Speicherbereiche für verschiedene Gruppen der Basic- 
Erweiterungen: 


Frei definierbarer Testbereich: 
Grafik-Befehle: 

Floppy-Befehle: 

Keyclick und Funktionstasten 
SpeicherverwaItungs-Routinen: 
Zahlkonvertierungen: 
String-Befehle: 

PAUSE-Befehl: 

Rahmenprogramm: 

CIA-Uhrenbehandlung: 


$8E00 - $93FF 
$9400 - $9DFF 
$9E00 - $9FFF 
$C000 - $C2FF 
$C400 - $C5E3 
$C5E4 - $C738 
$C739 - $C785 
$C786 - $C7CC 
$C800 - $CAFF 
$CB00 - $CBFF 


Zum Schluß des Kapitels stellen wir Ihnen noch ein 
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Programm zur Unterstützung der Musik-Fähi 
modore 64 vor. Dieses Programm ist alle 


den anderen 
Basic-Loader 
von $0000 bis 


kompatibel und sollte mit 
geladen werden. Es belegt 
|C13F (Start mit SYS 49152) 


gkeiten des Com- 
rdings nicht mit 
dem abgebildeten 
den Adreßbereich 


2.2.1 Basic-Erweiterungen 


Das Rahmenprogramm zum Dekodieren der neuen Befehlsworte 
und zum Verzweigen auf die neuen Routinen gliedert sich in 
sechs Abschnitte, welche entsprechend in den Kapiteln 
2.2.1.1 bis 2.2.1.6 beschrieben werden. Mit in dieses Ka¬ 
pitel aufgenommen wurde schließlich noch eine Übersicht 
über sämtliche neue Befehle, sowie eine theoretische Über¬ 
sicht über die Möglichkeiten, Parameter für Basic-Erwei- 
terungen einzulesen. 

Das Rahmenprogramm belegt den Speicherbereich $0800 
(51200) bis $0AEF (51967). Es werden keine weiteren Hilfs¬ 
routinen benötigt. Allerdings müssen die angesprochenen 
neuen Befehle natürlich noch geladen werden, bevor man sie 
ansprechen kann. Der einzige Befehl, der bereits in diesem 
Speicherbereich mit enthalten ist, ist der Befehl AUS zum 
Abschalten der Basic-Erwe iterung. 


2.2.1.1 Symbolvereinbarungen und Wortreservierungen 


C400 

ADR=$14 

;FUER FACADR 

C400 

DECVEC=$030a 

;ADRESSE DES VEKTORS 

C400 

f 

DER DEKODIERROUTINE 

C400 

BASBZ =$7A 

;ENTHAELT BASIC- 

C400 

; 

BEFEHLS-ZEIGER 

C400 

BIRQ »«EA31 

; STANDARD-IRQ-ROUTINE 

C400 

IRQVEC=*0314 

;VEKTOR FUER IRQ 

C400 

ARIVEC=$030A 

;VEKTOR F. ARITHM. 

C400 

VARADL =$47 

; VARIABLENADRESSE 

C400 

S 


C400 

;BASIC-ROUTINEN 

C400 

YFLP =$B3A2 

;WANDELT Y IN FAC 

C400 

CHRGET=$0073 

;EIN BASIC-Z. LESEN 
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C400 CHRG0T=:*0079 ; LETZEN KODE LESEN 

C400 XFLP =^BC49 ;WAND. -> FAC; X=EXP. 

C400 INTERPRET=:$A7AE: INTERPRETERSCHLEIFE 


C400 

BASBEF=$A7E4 

C400 

BASBEF1=:$A7E7 

C400 

GETARI=^AEB6 

C400 

GETARI1=:*AEBD 

C400 

FACADR=$B7F7 

C400 

CHKKLA=*AEFA 

C400 

CHKKLZ=^AEF7 

C400 

FEHLER=»A437 

C400 

SYNTERR=:$AFOB 

C400 

FRMNUM=*ADBA 

C400 

CHNUM =^ADBD 

C400 

FRMKLA=:*AEF1 

C400 

FRESTR=:$B6A3 

C400 

FRMEVL=»AD9E 

C400 

CHKCOM=:^AEFD 

C400 

STR0UT=*AB1E 

C400 

GETBYT=:^B79E 

C400 

GETBYTC=:$B7F1 

C400 

PARL0SA=:$E1D4 

C400 

GETAB =:$B7EB 

C400 

BCHKIN =:$E11E 

C400 

BCHK0UT=:$E11B 

C400 

BGETIN =$E124 

C400 

BSOUT =$E10C 

C400 

BASIN =^E112 

C400 

NEUSTR =:^B4F4 

C400 

VARSUC =$BOBB 

C400 

FACXY =$BBD4 

C400 

FMALK =*BA2B 

C400 

PUSHSTR=:$B4CA 

C400 

ADROUT =$BDCD 

C400 

SPOUT =*AB3F 

C400 

5 

C400 

ACPTR =:$FFA5 

C400 

CHRIN =:$FFCF 

C400 

CHR0UT=*FFD2 

C400 

CIOUT =$FFAB 

C400 

CLRCHN=$FFCC 

C400 

LISTEN=:$FFB1 

C400 

LOAD -»FEDS 

C400 

READST=»FFB7 

C400 

SAVE “♦FFDB 

C400 

SEC0ND=:^FF93 

C400 

STOP =*FFE1 

C400 

TALK =:$FFB4 

C400 

TKSA =*FF96 

C400 

UNLSN »♦FFAE 

C400 

UNTALK-^FFAB 


;BASIC-BEFEHL BEARB. 
;BASIC-BEFEHL BEARB. 
;ARITHM. ELEM. AUSW. 
;ARITHM. ELEM. AUSW. 

;FAC NACH ADR,ADR+1 
;KLAMMER AUF PRUEFEN 
;KLAMMER ZU PRUEFEN 
;FEHLERMELDUNG AUSG. 

;'SYNTAX ERROR' 

;HOLT NUM. AUSDRUCK 
;PRUEFT AUF NUMERISCH 
;HOLT AUSDRUCK IN () 

;HOLT STRING 
;HOLT AUSDRUCK 
;PRÜFT AUF KOMMA 
;GIBT STRING AUS 
;HOLT BYTE-PARAMETER 
;CHKCOM & GETBYT 
;HOLT LOAD/SAVE-PARAMETER 
;HOLT 2 PARAMETER 
;SETZT EINGABEDATEI 
;SETZT AUSGABEDATEI 
;HDLT EIN ZEICHEN 
;GIBT EIN ZEICHEN AUS 
;ZEICHEN EINLESEN 
;PLATZ F. NEUEN STR. 

;SUCHT VARIABLE 
;FAC NACH VARIABLE 
;FAC MAL KONSTANTE 
;DES. AUF STRINGSTACK 
;ADRESSE AUSGEBEN 
;LEERZEICHEN AUSGEBEN 

; BYTE HOLEN 
; BYTE VOM KANAL HOLEN 
; BYTE AUF KANAL AUSG. 

; BYTE AUSGEBEN 
; KANAL ABMELDEN 
; LISTEN-KOMMANDO 
; LADE-ROUTINE 
; STATUS LESEN 
; SPEICHER-ROUTINE 
5 SEK.ADR. NACH LISTEN 
; PRUEFT STOPTASTE 
; TALK SENDEN 
; SEK.ADR NACH TALK 
; UNLISTEN SENDEN 
; UNTALK SENDEN 
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CBOO 


; *** SPRUNGLEISTE *** 

CBOO 

4C21CB 

JMP 

INIT 


CB03 

4C5BCB 

JMP 

AUS 


CB06 

4CBBCA 

JMP 

INTMANS 


CB09 

00 

IRQM: 

BYT 0 

;MASKE F. IRQ-ROUT. 

CBOA 


ISPTAB 

: 

;SPRUNGTAB. IRQ-ROUT 

CBOA 

0C90 

WGR 

$900C 

;SMOVE 

CBOC 

OOCO 

WOR 

»COOO 

;KEYKLICK 

CBOE 

30C0 

WGR 

^C030 

;FTAST 

CBIO 

20CB 

WOR 

IDUMMY 


CB12 

20CB 

WOR 

IDUMMY 


CB14 

20CB 

WOR 

IDUMMY 


CB16 

20CB 

WOR 

IDUMMY 


CBIB 

20CB 

WOR 

IDUMMY 


CBIA 

BOCB 

lADR: 

WOR IDUMMY ;PLATZ F. SPRUNGZ 

CBIC 

00 

IRQZ: 

BYT 0 ; 

ZAEHLER IRQ-ROUTINEN 

CBID 

00 

BEFNR; 

BYT 0 ; 

NUMMER DES BEFEHLS 

CBIE 

00 

FNNR: 

BYT 0 ; 

NUMMER DER FUNKTION 

CBIF 

00 

AKKUSICH: BYT 

0 ;ZWISCHENSPEICHER 

CB20 


S 



CB20 

60 

IDUMMY 

: RTS ; 

DUMMY-ROUTINE 

CB21 


: 




Hier werden zunächst die Symbole für die Basic- und 
KERNAL-Routinen vereinbart, dann folgt die Sprungtabe1le 
auf die wichtigsten drei Labels dieses Abschnittes, und 
schließlich werden noch 23 Byte reserviert, die unter 
anderem die Sprungtabelle für den Interrupt-Manager auf¬ 
nehmen sollen. 

In diese Sprungtabelle werden später die Adressen der In¬ 
terrupt-Routinen eingetragen, die nacheinander automatisch 
aufgerufen werden sollen. Die ersten Adressen sind bereits 
eingetragen und zwar für die Spritebewegung, den Key-Click 
und die Funktionstastenabfrage. Die restlichen Adressen 
sind mit dem Label IDUMMY vorbesetzt, welches auf eine 
Routine zeigt, die lediglich ein RTS enthält. 


2.2.1.2 Initialisierung 


C821 ; 

CB21 ;INITIALISIERUNG 

CB21 


9 
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CB21 


INIT: 



CB21 

A9B0 

LDA 

#BEFERWL 

;DECODE-VECTOR AUF 

CB23 

BD0B03 

STA 

DECVEC 

;VERTEILER FUER NEUE 

CB26 

A9CB 

LDA 

#BEFERWH 

;BEFEHLE STELLEN 

CB2B 

BD0903 

STA 

DECVEC+1 


CB2B 


i 



CB2B 

A9FC 

LDA 

#FKTERWL 

;ARTITHM.-VEKTOR AUF 

CB2D 

BD0A03 

STA 

ARIVEC 

; AUSWERTUNG VON ♦/•/.- 

CB30 

A9C9 

LDA 

#FKTERWH 

;AUSDRUECKEN STELLEN 

CB32 

BD0B03 

STA 

ARIVEC+1 


CB35 


i 



CB35 

A9BE 

LDA 

#$BE 


CB37 

B53B 

STA 

♦3B 

;BASIC-RAM END=^BEOO 

CB39 

B534 

STA 

♦34 

;STRING-UNTERGRENZE 

CB3B 


5 



CB3B 

7B 

SEI 



CB3C 

A9B3 

LDA 

ttlNTMANL 

;IRQ-VEKTOR AUF 

C:B3E 

BDI403 

STA 

IRQVEC 

;MANAGER STELLEN 

CB41 

A9CA 

LDA 

ttlNTMANH 


CB43 

BDI 503 

STA 

IRQVEC+1 


CB46 

5B 

CLI 



CB47 


5 



CB47 

A94F 

LDA 

#MELDUNGL 

;ZEIGER (A/Y) AUF 

CB49 

AOCB 

LDY 

#MELDUNGH 

;MELDUNG 

CB4B 

201EAB 

JSR 

STROUT 

:STRING AUSGEBEN 

CB4E 

60 

RTS 

;INITIALISIERUNG FERTIG 

CB4F 


j 



CB4F 


MELDUNBL = <$ 


CB4F 


MELDUNBH = >$ 


CB56 

312E30 

7.ASC "PROFI VI 

.0" 

CB59 

OD 

BYT 

♦OD 


CB5A 

00 

BYT 

0 


CB5B 


s 




In diesem Abschnitt werden einige Basic-Vektoren ver¬ 
stellt, um neue Basic-Befehle, neue Basic-Funktionen und 
bis zu 8 Interrupt-Routinen ansprechen zu können. Der Vek¬ 
tor $0308, $0309 wird auf die Befehlsdekodier-Routine 
(siehe Kapitel 2.2.1.4) gestellt, der Vektor $030A, $030B 
auf die Funktiondekodier-Routine (Kapitel 2.2.1.5), dann 
wird das Basic-RAM auf den Bereich bis $8E00 begrenzt, so 
daß genügend Platz für eigene Maschinenprogramme bleibt. 
Nachdem schließlich noch der IRQ-Vektor ($0314, $0315) auf 
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den Interrupt-Manager gerichtet wurde, wird noch eine Mel¬ 
dung auf dem Bildschirm ausgegeben. 


2.2.1.3 Der AUS-Befehl 


CB5B 


; ** 

ERWEITERUNG AUSSCHALTEN ** 

CB5B 


f 



CB5B 


AUS: 



CB5B 

A9E4 

LDA 

#<BASBEF 


CB5D 

BD0B03 

STA 

DECVEC 


CB60 

A9A7 

LDA 

#>BASBEF 


CB62 

BD0903 

STA 

DECVEC+1 

; DECODE-VEKTOR 

CB65 


f 


AUF NORMALEN WERT 

CB65 

A9B6 

LDA 

#<GETARI 

;ARITH.-VEKTOR AUF 

CB67 

BD0A03 

STA 

ARIVEC 

{NORMALEN WERT 

CB6A 

A9AE 

LDA 

#>GETARI 

;STELLEN 

CB6C 

BD0B03 

STA 

ARIVEC+1 


CB6F 


i 



CB6F 

7B 

SEI 



CB70 

A931 

LDA 

#<BIRQ 

;IRQ-VEKTOR AUF 

CB72 

BD1403 

STA 

IRQVEC 

;STANDARDWERT 

CB75 

A9EA 

LDA 

#>BIRQ 

{SETZEN 

CB77 

BDI503 

STA 

IRQVEC+1 


CB7A 

5B 

CLI 



CB7B 


5 



CB7B 

A9A0 

LDA 

#»A0 


CB7D 

B53B 

STA 

♦3B 

{BASIC-RAM END=:$AOOO 

CB7F 

60 

RTS 


{FERTIG 

CBBO 


9 




Hier werden die bei der Initialisierung verstellten Basic- 
Vektoren auf ihre ursprünglichen Standardwerte zurückge¬ 
setzt und das Basic-RAM bis $A000 freigegeben. 


2.2.1.4 Dekodierung von Befehlen 

CBBO BEFERWH = >^ ; NEUE BEFEHLE ** 
CBBO BEFERWL = <♦ ; AUSFUEHREN ** 
CBBO 207300 JSR CHRGET ;BASIC-ZEICHEN HOLEN 
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C8B3 

901E 

BCC 

BEBAS 

ceB5 

C960 

CMP 

#♦60 

CBB7 

BOIA 

BCS 

BEBAS 

CBB9 

C941 

CMP 

#♦41 

CBBB 

9015 

BCC 

BEBASC 

CBBD 

8D1FC8 

STA 

AKKUSICH 

CB90 

A200 

LDX 

#0 

CB92 

8E1DC8 

STX 

BEFNR 

CB95 


BEI: 


C895 

AOOO 

LDY 

#0 

C897 

EE1DC8 

INC 

BEFNR 

C89A 

BD24C9 

LDA 

BTAB,X 

C89D 

D007 

BNE 

BE2 

C89F 

ADIFCB 

LDA 

AKKUSICH 

CBA2 


BEBASC; 

C8A2 

38 

SEC 


C8A3 


BEBAS: 


CBA3 

4CE7A7 

JMP 

BASBEFl 

CBA6 


BE2; 


CBA6 

D17A 

CMP 

(BASBZ),Y 

CBAB 

D028 

BNE 

BE4 

CBAA 

CB 

INY 


CBAB 

EB 

INX 


CBAC 

BD24C9 

LDA 

BTAB,X 

CBAF 

D0F5 

BNE 

BE2 

CBBl 

IB 

CLC 


C8B2 

9B 

TYA 


C8B3 

657A 

ADC 

BASBZ 

CBB5 

B57A 

STA 

BASBZ 

C8B7 

9002 

BCC 

BE3 

CBB9 

E67B 

INC 

BASBZ+1 

CBBB 


BE3; 


CBBB 

ADIDCB 

LDA 

BEFNR 

CBBE 

OA 

ASL 

A 

CBBF 

AA 

TAX 


C8C0 

BDDCCB 

LDA 

STAB,X 

CBC3 

BDCDCB 

STA 

BEFADR 

CBC6 

BDDDCB 

LDA 

STAB+1,X 

CBC9 

BDCECB 

STA 

BEFADR+1 

C8CC 


$ 


CBCC 

20 

BYT 

♦20 

C8CD 

0000 

BEFADR: WOR 0 

CBCF 

4CAEA7 

JMP 

INTERPRET 

CBD2 


> 


CBD2 


? 


CBD2 


BE4: 


C8D2 

EB 

INX 


CBD3 

BD24C9 

LDA 

BTAB,X 

CBD6 

DOFA 

BNE 

BE4 

CBDB 

EB 

INX 


C8D9 

4C95CB 

JMP 

BEI 
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;CODE WAR ZIFFER 
;TEST AUF BUCHSTABE 
;BASIC-BEFEHLS-CODE 
;VERGLEICH MIT "A" 

;SONDERZEICHEN 
;AKKU SICHERN 

;BEFNR =0 


;BEFNR=BEFNR+1 
;ZEICH. AUS BEF.TAB. 
;KEIN TRENNZEICHEN 
;AKKU RESTAURIEREN 

;CARRY WIEDER SETZEN 

;BASIC-BEF. AUSF. 

;VERGL. M. BASIC-TEXT 
;KEINE UEBEREINST. 
;NEXT ZEI. BASIC-TEXT 
;NEXT ZEI. BEF.TAB. 

;ZEICHEN AUS BEF.TAB. 
;NEXT ZEICH. PRUEFEN 


;BEFEHLSZEIGER UM 
;BEF.-LAENGE ERHOEH. 
;KEIN UEBERTRAG 
;UEBERTRAG 

;BEFEHLSNUMMER HOLEN 
;VERDOPPELN UND ALS 
;ZEIGER IN SPRUNGTAB. 


;BEFADR=SPRUNGZIEL 

;CODE FUER 'JSR' 

;SPRUNGZIEL 
;ZURUECK ZUR 
INTERPRETERSCHLEI FE 


;NEXT ZEI. BEF.TAB. 

;BEFEHL NICHT ZU ENDE 
;'0' UEBERLESEN 
;NEXT BEFEHL CHECKEN 
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CBDC 


S 


C8DC 


;SPRUNGTABELLE 

BEFEHLE 

CBDC 




CBDC 


STAB: 


CBDC 

E7A7 

WDR BASBEFl 

;BEFNR=0 

CBDE 

5BCB 

MOR AUS 

;AUS 

CBEO 

57C4 

WDR DDKE 

;DDKE 

CBE2 

9EC4 

WDR RDKE 

jRDKE 

CBE4 

B3C4 

WDR CHARKDP 

;CHARKDP 

CBE6 

1BC5 

WDR SWAP 

;SWAP 

CBEB 

77C5 

WDR LAD 

;LAD 

CBEA 

A7C5 

WDR SPEI 

;SPEI 

CBEC 

BBC7 

WDR PAUSE 

;PAUSE 

CBEE 

009E 

WDR $9E00 

fDISK 

CBFO 

039E 

WDR *9E03 

;LEST 

CBF2 

069E 

WDR ♦9E06 

;LESP 

CBF4 

099E 

WDR $9E09 

; VIEW 

CBF6 

OOCB 

WDR $CBOO 

;SETTIME 

CBFB 

OOBE 

WDR $BEOO 

;TEST-BEFEHL 

CBFA 

0094 

WDR ^9400 

;GREIN 

CBFC 

0394 

WDR »9403 

;GRAUS 

CBFE 

0694 

WDR $9406 

;GRLDE 

C900 

0994 

WDR $9409 

;FARBE 

C902 

0C94 

WDR $940C 

;GRAFEIN 

C904 

0F94 

WDR $940F 

;PUNKT 

C906 

1294 

WDR $9412 

;CHAR 

C924 


S 


C924 


BTAB: 


C924 

415553 

7.ASC "AUS" 


C927 

00 

BYT 0 


C929 

4F4B45 

7.ASC "DDKE" 


C92C 

00 

BYT 0 


C92E 

4F4B45 

7.ASC "RDKE" 


C931 

00 

BYT 0 


C936 

4B4F50 

7.ASC "CHARKDP" 


C939 

00 

BYT 0 


C93B 

574150 

7.ASC "SWAP" 


C93E 

00 

BYT 0 


C93F 

4C4144 

7.ASC "LAD" 


C942 

00 

BYT 0 


C944 

504549 

7.ASC "SPEI" 


C947 

00 

BYT 0 


C94A 

555345 

7.ASC "PAUSE" 


C94D 

00 

BYT 0 


C94F 

49534B 

7.ASC "DISK" 


C952 

00 

BYT 0 


C954 

455354 

7.ASC "LEST" 


C957 

00 

BYT 0 


C959 

455350 

7.ASC "LESP" 


C95C 

00 

BYT 0 


C95E 

494557 

7.ASC "VIEW" 
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C961 00 BYT 0 

C966 494D45 ‘/.ASC "SETTIME" 

C969 00 BYT 0 

C96B 455354 XASC "TEST" 

C96E 00 BYT 0 

C971 45494E 7.ASC "GREIN" 

C974 00 BYT 0 

C977 415553 7.ASC "GRAUS" 

C97A 00 BYT 0 

C97D 4C4F45 7.ASC "GRLOE" 

C9B0 00 BYT 0 

C9B3 524245 7.ASC "FARBE" 

C9B6 00 BYT 0 

C9BB 45494E 7.ASC "GRAFEIN" 

C9BE 00 BYT 0 

C991 4E4B54 7.ASC "PUNKT" 

C994 00 BYT 0 

C996 4B4152 7.ASC "CHAR" 

C999 00 BYT 0 

C9FB 00 BYT 0 ;ENDE BEFEHLSTABELLE 

C9FC ; 


In diesem Unterprogramm werden die Zeichen ab der momen¬ 
tanen Stelle des Basic-Befehlszeigers mit den Wörter aus 
der Befeh 1stabe 1 le verglichen. Wird ein Befehlswort im 
Basic-Text gefunden, so wird an die entsprechende Routine 
verzweigt, deren Adresse in der Sprungtabelle vermerkt 
ist. Der Basic-Befehlszeiger steht nach dieser Dekodierung 
auf dem ersten Byte hinter dem Befehl. Die Dekodierung 
erfolgt nicht, wenn das erste Zeichen des vermeintlichen 
neuen Befehls kein Buchstabe ist. Deshalb ist es auch 
nicht möglich, neue Befehlswörter mit einem anderen 
Zeichen als einem Buchstaben beginnen zu lassen. 

Haben Sie einen Assembler, so ist es einfach, die Sprung- 
tabelle und die Befehlstabelle um entsprechende selbst¬ 
definierte neue Befehle zu erweitern. Ein Befehl wird vom 
nächsten Befehl durch ein 0-Byte getrennt, das Ende der 
Befeh 1stabe1le wird durch zwei aufeinanderfolgende 0-Bytes 
erkannt. Für diejenigen unter Ihnen, die keinen Assembler 
besitzen, um diese Erweiterung durchzuführen, wurde am 
Schluß der Befehlstabelle ein Befehl 'TEST' eingefügt, 
dessen Adresse hier konstant auf $8E00 gesetzt wurde. Da¬ 
durch können Sie die Routine für einen neuen Befehl dort 
ablegen und diesen mit TEST aufrufen. 
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2 . 2 . 1.5 Dekodieren von Funktionen 


C9FC 


FKTERWL=<* 

;** ARITHM. ELEM.** 

C9FC 


FKTERWH=>* 

;** AUSWERTUNG 

C9FC 

A900 

LDA 

#0 


C9FE 

B50D 

STA 

*0D 

;TYPFLAG NUMERISCH 

CAOO 

207300 

JSR 

CHRGET 

jNAECHSTES ZEICHEN 

CA03 

902A 

BCC 

FNBAS 

;CODE WAR ZIFFER 

CA05 

C9C5 

CMP 

#^C5 

;VAL-KODE 

CA07 

F05C 

BEQ 

FKTVAL 


CA09 

C960 

CMP 

#♦60 

;TEST AUF BUCHSTABE 

CAOB 

B022 

BCS 

FNBAS 

5 

CAOD 

C924 

CMP 

#♦24 

; "♦" 

CAOF 

F057 

BEQ 

HEXCON 

;JA, DANN HEXZAHL 

CAll 

C925 

CMP 

#♦25 

; 

CA13 

F056 

BEQ 

BINCON 

;JA, DANN BINZAHL 

CA15 

C941 

CMP 

#♦41 

;VERGLEICH MIT "A" 

CA17 

9015 

BCC 

FNBASC 

;SONDERZEICHEN 

CA19 

SDIFCB 

STA 

AKKUSICH 

;AKKU SICHERN 

CAIC 

A200 

LDX 

#0 


CAIE 

BEI ECB 

STX 

FNNR 

jBEFNR =0 

CA21 


FEI: 



CA21 

AOOO 

LDY 

#0 


CA23 

EEIECB 

INC 

FNNR 

;BEFNR=BEFNR+1 

CA26 

BDB2CA 

LDA 

FTABjX 

;ZEICH. AUS BEF.TAB. 

CA29 

D007 

BNE 

FE2 

;KEIN TRENNZEICHEN 

CA2B 

ADIFCB 

LDA 

AKKUSICH 

;AKKU RESTAURIEREN 

CA2E 


FNBASC: 


CA2E 

3B 

SEC 


;CARRY WIEDER SETZEN 

CA2F 


FNBAS; 



CA2F 

4CBDAE 

JMP 

GETARIl 

;BASIC-BEF. AUSF. 

CA32 


FE2: 



CA32 

D17A 

CMP 

(BASBZ),Y 

;VERGL. M. BASIC-TEXT 

CA34 

D025 

BNE 

FE4 

;KEINE UEBEREINST. 

CA36 

CB 

INY 


;NEXT ZEI. BASIC-TEXT 

CA37 

EB 

INX 


;NEXT ZEI. BEF.TAB. 

CA38 

BDB2CA 

LDA 

FTAB,X 

;ZEICHEN AUS BEF.TAB. 

CA3B 

D0F5 

BNE 

FE2 

;NEXT ZEICH. PRUEFEN 

CA3D 

IB 

CLC 



CA3E 

9B 

TYA 



CA3F 

657A 

ADC 

BASBZ 

;BEFEHLSZEIGER UM 

CA41 

B57A 

STA 

BASBZ 

;BEF.-LAENGE ERHOEH. 

CA43 

9002 

BCC 

FE3 

;KEIN UEBERTRAG 

CA45 

E67B 

INC 

BASBZ+1 

;UEBERTRAG 

CA47 


FE3; 



CA47 

ADIECB 

LDA 

FNNR 

;BEFEHLSNUMMER HOLEN 

CA4A 

OA 

ASL 

A 

;VERDOPPELN UND ALS 

CA4B 

AA 

TAX 


;ZEIGER IN SPRUNGTAB. 

CA4C 

BD6ECA 

LDA 

FSTABjX 


CA4F 

BD59CA 

STA 

FNADR 
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CA52 

BD6FCA 

LDA FSTAB+1,X 


CA55 

8D5ACA 

STA FNADR+1 

;FNADR=SPRUNGZI EL 

CA5B 

4C 

BYT ^48 

;CODE FUER 'JMP' 

CA59 

0000 

FNADR: WOR 0 

;SPRUNGZIEL 

CA5B 


5 


CA5B 


FE4: 


CA5B 

E8 

INX 

;NEXT ZEI. BEF.TAB. 

CA5C 

BD82CA 

LDA FTAB,X 


CA5F 

DOFA 

BNE FE4 

;BEFEHL NICHT ZU ENDE 

CA61 

E8 

INX 

;'0' UEBERLESEN 

CA62 

4C21CA 

JMP FEI 

;NEXT BEFEHL CHECKEN 

CA65 


j 


CA65 


FKTVAL; 


CA65 

4CD1C6 

JMP VAL 


CA68 


5 


CA6S 


HEXCON: 


CA68 

4C9BC6 

JMP HEXCONV 


CA6B 


S 


CA6B 


BINCON: 


CA6B 

4CB6C6 

JMP BINCONV 


CA6E 


l 


CA6E 


j 


CA6E 


;SPRUNGTABELLE 

FUNKTIONEN 

CA6E 


j 


CA6E 


FSTAB: 


CA6E 

8DAE 

WOR GETARIl 

;FNNR=0 

CA70 

13C7 

WOR HEXSTR 

;HEX» 

CA72 

26C7 

WOR BINSTR 

;BIN» 

CA74 

37C4 

WOR DEEK 

;DEEK 

CA76 

01C4 

WOR REEK 

;REEK 

CA78 

72C4 

WOR DREEK 

;DREEK 

CA7A 

39C7 

WOR INDEX 

;INDEX 

CA7C 

05C4 

WOR CHEEK 

;CHEEK 

CA7E 

8BCB 

WOR $CG8B 

;TIME 

CA80 

008E 

WOR *8E00 

;TEST-FUNKTION 

CA82 


S 


CA82 


FTAB; 


CA83 

455824 

7.ASC "HEX»" 


CA86 

00 

BYT 0 


CA88 

494E24 

7.ASC "BIN»" 


CA8B 

00 

BYT 0 


CA8D 

45454B 

7.ASC "DEEK" 


CA90 

00 

BYT 0 


CA92 

45454B 

7.ASC "REEK" 


CA95 

00 

BYT 0 


CA98 

45454B 

7.ASC "DREEK" 


CA9B 

00 

BYT 0 


CA9E 

444558 

7.ASC "INDEX" 


CAAl 

00 

BYT 0 
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CAA4 

45454B 

7.ASC 

"CHEEK 

CAA7 

00 

BYT 0 


CAA9 

494D45 

7.ASC 

"TIME" 

CAAC 

00 

BYT 0 


CAAE 

455354 

7.ASC 

"TEST" 

GABI 

00 

BYT 0 


CAB2 

CAB3 

00 

BYT 0 

i 



;ENDE FUNKTIONSTAB. 


Im Prinzip geschieht hier das gleiche wie bei der Befehls¬ 
dekodierung. Ein wesentlicher Unterschied ist jedoch, daß 
drei Codes extra dekodiert werden. Dies ist zum einen der 
Code für den Basic-Befehl VAL, zum anderen das $-Zeichen 
und das %-Zeichen. Taucht einer dieser drei Codes auf, 
wird sofort zu den Labein VAL, HEXCONV, BINCONV verzweigt, 
die nicht in der eigentlichen Funktions-Sprungtabelle 
stehen. 

Die Funktions-Sprungtabelle und die Funktions-Wort-Tabe1le 
sind genauso aufgebaut wie die Tabellen bei den Befehlen; 
auch hier wurde eine TEST-Funktion vorgesehen, mit der Sie 
leicht experimentieren können. 


2.2.1.6 Interrupt-Manager 


CAB3 

CAB3 


INTMANL=<» 

INTMANH=>» 

; ** IRQ-MANABER ** 

CAB3 

A901 

LDA #1 


CAB5 

CABS 

SD 1 CCS 

STA IRQZ 
INTMANS: 

jZAEHLER AUF 1 

CABS 

ADICCS 

LDA IRQZ 

;ZAEHLER UND-VERKN. 

CABB 

2D09CS 

AND IRQM 

;MIT MASKE 

GÄBE 

F003 

BEQ INTMANl 

;FLAG NICHT BES. 

CACO 

CAC3 

20CBCA 

JSR INTAUSF 
INTMANl; 

;EINEN INT. AUSF. 

CAC3 

OEICCS 

ASL IRQZ 

;ZAEHLERBIT ROTIEREN 

GAG6 

90F0 

BCC INTMANS 

;SCHLEIFE 

CACB 

CACB 

CACB 

4C31EA 

JMP BIRQ 

INTAUSF; 

;FERTIG 

CACB 

CACD 

A2Ft£ 

LDX #*FE 
INTAUSF1; 

1 

II 

X 

CACD 

ES 

INX 

;X UM 2 ERHOEHEN 

CACE 

ES 

INX 
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CACF 

4A 

LSR 

A 

;AKKU NACH RECHTS 

CADO 

90FB 

BCC 

INTAUSFl 

;BIS NUMMER GEFUNDEN 

CAD2 

BDOBCB 

LDA 

ISPTAB+1, 

X;SPRUNGZIEL HIGH/LGW 

CAD5 

8D1BC8 

STA 

IADR+1 

;IN RESERVIERTE 

CAD8 

BD0AC8 

LDA 

ISPTAB,X 

;ZELLEN SCHREIBEN 

CADB 

8D1AC8 

STA 

lADR 


CADE 

CAEl 

6C1AC8 

JMP 

$ 

<IADR) 

;INDIREKTER SPRUNG 


Die folgende Interrupt-Manager-Routine wurde geschrieben, 
um den Betrieb von mehreren Interrupt-Routinen zu ermög¬ 
lichen und außerdem das Ein- und Ausschalten dieser Rou¬ 
tinen zu erleichtern. 

Beim Einschalten der Basic-Erweiterungen wird der IRQ-Vek- 
tor auf den Manager gestellt. Beim Ausschalten wird der 
Standardwert wieder hergestellt, so daß das Zwischenspei¬ 
chern des alten Wertes überflüssig ist. Von $C80A bis 
$C819 befindet sich eine Tabelle, in der die Adressen der 
acht Interrupt-Routinen, die aufgerufen werden können, 
abgelegt werden. In der Zelle $C809 bedeutet ein gesetztes 
Bit, daß die der Bitnummer entsprechende Routine aufgeru¬ 
fen werden soll. Das Ein- und Ausschalten der Routinen 
geschieht also nur noch, indem das entsprechende Bit in 
dieser Zelle gesetzt oder gelöscht wird. Die Plätze für 
die nicht benützten Routinen wurden mit einer Dummy- 
Routine belegt, die einfach aus einem RTS besteht. 

Ab dem Label INTMANL, INTMANH befindet sich die Schleife, 
in der die einzelnen Interrupt-Routinen aufgerufen werden, 
wenn das Zählerbit in der Zelle IRQZ und das entsprechende 
Bit in der oben erwähnten Maskenzelle IRQM gesetzt sind. 
Die Schleife wird beendet, wenn das Zählerbit herausrou- 
tiert wurde. 

Beim Ausführen eines Interrupts wird zunächst das X-Regi- 
ster mit dem doppelten Wert der Bitnummer des gesetzten 
Bits im Akku geschrieben und anschließend werden die ent¬ 
sprechenden Werte aus der Sprungtabelle in die Zellen lADR 
und IADR+1 übertragen, über welche dann ein indirekter 
Sprung ausgeführt wird. 
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2.2.1.7 Übersicht der neuen Befehle 


Befehl (*^t' - Funktion) Bedeutung 


$hhhh 

%bbbbbbbbbbbbbbbb 

AUS 

BIN$(AD) 

CHEEK(AD) 

CHAR PF,PX,PY,BC 
CHARKOP 

DEEK(AD) 

DISK 

DOKE AD,W 
DREEK(AD) 

GRAUS 
GRAFEIN 
GREIN HE,ZF 
GREIN E1,F2,E3 
HEX$(AD) 

INDEX(A$,AA$) 

LAD ZA,DN$,GA,SA 

LESP# DN,Z$ 

LEST# DN,Z$ 

PAUSE SEK 
PUNKT PE,PX,PY 

REEK(AD) 

ROKE AD,B 
SETTIME U,ZE$ 

SPEI AA,EA,DN$,GA,SA 
SWAP A1,A2,AZ 
TIME bzw. TIME2 
VAL(V$) 

VIEW DN$,GA 


* Präfix für Hexadezimalwert 

* Präfix für Binärwert 
Befehlserweiterung ausschalten 

* Binärstring zu AD bilden 

* PEEK in Zeichengenerator-ROM 
Zeichen in Grafik 

Zeichengenerator-ROM in darun¬ 
terliegendes RAM kopieren 

* 16-Bit-PEEK 

Disk-Status einiesen in DS$ 
16-Bit-POKE 

* 16-Bit-PEEK in RAM unter ROM 
Grafik ausschalten 

Grafik wiedereinschalten 
Grafik einschalten (einfarbig) 
Grafik einschalten (mehrfarbig) 

* Hexadezimalstring zu AD bilden 

* String-in-String-Suche 
Laden ohne Veränderung von 
Basic-Zeigern 
Programmzeile lesen 
Textzeile lesen 

Pause 

Punkt setzen, löschen, 
invertieren 

* PEEK in RAM unter ROM 
POKE in RAM unter I/O 
Uhrzeit/Alarmzeit im CIA setzen 
RAM-Bereich abspeichern 
RAM-Bereiche austauschen 

* Uhrzeit aus CIAl (CIA2) lesen 

* Zahlwert einer Zeichenreihe 
Programmdatei direkt listen 


Dabei haben die Parameter folgende Bedeutung: 


Parameter Bedeutung 


b 

h 

A$ 

Al 

A2 


Binärziffer 
Hex-Ziffer 

Zeichenreihe, die gesucht wird 
Quelladresse beim Vertauschen 
Zieladresse beim Vertauschen 
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AA 

AA$ 

AD 

AZ 

B 

BC 

DN 

DN$ 

EA 

Fl 

F2 

F3 

GA 

HF 

PF 

PX 

PY 

SA 

SEK 

U 


W 

z$ 

ZF 


Startadresse beim Speichern 
Zeichenreihe, in der gesucht wird 
Adresse, Zahl zwischen 0 und 65535 
Anzahl der zu ■ vertauschenden Bytes 
Byteparameter (Zahl von 0 bis 255) 
Bildschirmcode (0-511) 
logische Dateinumer 
Dateiname 

Endadresse+1 beim Speichern 

erste Farbe 

zweite Farbe 

dritte Farbe 

Geräteadresse 

Hintergrundfarbe 

Punktfarbe 

X-Koordinate eines Punktes 
Y-Koordinate eines Punktes 
Sekundäradresse 
Sekunden 

Nummer der zu setzenden Zeit: 

1 = Uhr im GIAl, 2 = Uhr im CIA2 
3 = Alarm im CIAl, 4 = Alarm im GIA2 
String (dezimal, $hex. oder %binär), 
dessen Wert bestimmt werden soll 
Wortparameter (Zahl von 0 bis 65535) 
eingelesene Zeile 
Zeichenfarbe (-1, 0, 1, 2, 3) 


2.2.1.8 Parameterübergabe 


Die meisten Befehle und Funktionen besitzen einen oder 
mehrere Parameter. Parameter bedeutet hier eine Größe, von 
deren Wert das Verhalten der Funktion des Befehls abhängt. 
Zunächst wollen wir uns ansehen, welche Datentypen als 
Parameter in Frage kommen, und anschließend wollen wir uns 
mit den Möglichkeiten beschäftigen, diese Datentypten bei 
Befehlen und Funktionen als Parameter zu verwenden. Als 
Beispiel wollen wir uns dazu die Integer-Division ansehen. 
Diese Routine hat zwei Eingabeparameter, nämlich Dividend 
und Divisor, und das Ergebnis (ganzahliger Quotient oder 
Rest) als Ausgabeparameter. Zu jeder Möglichkeit wollen 
wir ein kleines Rahmenprogramm für die Integer-Division 
schreiben, das die Parameter in entsprechender Weise 
übernimmt. 
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Numerische Parameter 

Zahlen werden im Commodore-Basic immer als Fließkomma¬ 
zahlen verarbeitet. In dieser Form werden zur Speicherung 
mindestens fünf Byte (8 Bit Exponent, 32 Bit Mantisse) 
benötigt. Für viele Anwendungen ist jedoch nur ein ein¬ 
geschränkter Zahlbereich von Interesse. Dies sind vor 
allem folgende: 


Byte-Parameter: 

ganze 

Zahlen 

von 

0 

bis 

+ 255 

Adress-Parameter: 

ganze 

Zahlen 

von 

0 

bis 

+65535 

Integer Werte: 

ganze 

Zahlen 

von 

0 

bis 

+65535 

Signed Integer: 

ganze 

Zahlen 

von 

-32768 

bis 

+32767 


Variablen als Parameter 

Auch eine Variable kann als Parameter übergeben werden, 
wobei darunter zu verstehen ist, daß die Adresse der Vari¬ 
ablen der eigentliche Parameter ist. Der Inhalt der Varia¬ 
blen kann dann dabei sowohl als Eingabeparameter als auch 
als Ausgabeparameter benützt werden. 


String-Parameter 

Ein String ist beim Commodore-Basic eine Zeichenreihe mit 
einer Länge von 0 bis 255. Als Parameter für einen Befehl 
oder eine Funktion wird jedoch eigentlich nur der soge¬ 
nannte Descriptor übergeben. Dies sind 3 Byte, wovon der 
erste die Länge des Strings und die beiden anderen die 
Startadresse des Strings angeben. 

Außer der Möglichkeit, Strings als Variableninhalte zu 
übergeben, besteht auch die Möglichkeit, mit Hilfe der 
Routine FRMEVL derartige Parameter auszuwerten. Nach Be¬ 
endigung der Routine FRMEVL steht der Descriptor des 
Strings im Stringstapel. Von dort kann er mit der Routine 
FRESTR geholt werden, wonach die Startadresse des Strings 
in den Zellen $22, $23 steht und die Länge im Akkumulator. 

Wollen wir Strings als Funktionswert, so müssen wir den 
Descriptor vor Verlassen unserer Routine auf den Stapel 
legen. Dies geschieht mit Hilfe der Basic-Routine PUSHSTR 
(Adresse: $B4CA=46282), welche ihrerseits als Eingabepara¬ 
meter die Strinqlänge in der Zelle $61 und Stringadresse 
in $62,$63 (L,H) benötigt. 
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Parameterübergabe durch spezifizierte Speicherzellen 

Vor allem für Byte- und Word-Parameter eignet sich fol¬ 
gende Methode: Im Maschinenprogramm werden einige 
Speicherzellen vereinbart, aus denen zu Beginn der Routine 
die Eingabeparameter gelesen und in die vor Beendigung der 
Routine die Ausgabeparameter zurückgeschrieben werden. 

Von Basic aus kann man die Eingabeparameter mittels POKE 
übergeben und nach Aufruf der Routine die Ausgabe mit PEEK 
vollziehen. Diese Methode ist zwar vom Basic-Programm et¬ 
was umständlich zu bedienen, jedoch im Maschinenprogramm 
leicht zu realisieren und leicht zu verstehen. 


Parameterübergabe durch Prozessor-Register 


Der SYS-Befehl des Commodore 64 hat eine angenehme Eigen¬ 
schaft: Unmittelbar vor Aufruf der eigentlichen Maschinen¬ 
routine werden aus den Speicherzellen 780, 781, 782 und 
783 die Prozessor-Register, Akkumulator, X-Register, Y- 
Register und Statusregister geladen und nach Aufruf der 
Routine die neuen Werte in diese Zellen zurückgeschrieben. 
Dadurch steht in dem Moment, wo die Maschinenroutine 
begonnen wird, ein vom Benutzer definierter Zustand in 
diesen Prozessor-Registern. 

Als Beispiel wollen wir Ihnen eine Möglichkeit zeigen, mit 
Hilfe der KERNAL-Routine PLOT den Cursor an eine bestimmte 
Position zu setzen. 

10 POKE 781, Zeile 
20 POKE 782, Spalte 

30 POKE 783, 0 :REM Alle Flags auf Null 
40 SYS 65520 :REM PLOT-Routine 


Weitere Beispiele für Parameterübergaben 


Hier haben wir als Beispiel die Integer-Division, die im 
Kapitel 2.2.10 beschrieben wird, ausgewählt. Die Routine 
verlangt in den Zellen $8F47, $8F48 den Dividenden und in 
$8F45, $8F46 den Divisor in der Form: Low-Byte, High-Byte. 
Das Ergebnis (der Quotient) wird in den Zellen $8F47 und 
$8F48, der Rest in den Zellen $8F49 und $8F4A abgelegt. 
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Diese Angaben genügen, um Programme zu schreiben, die die 
Parameter für die Routine IDIV entsprechend setzen. 

Die Methode 'Parameterübergabe durch spezifizierte Spei¬ 
cherzellen' können wir hier direkt anwenden, da die ange¬ 
gebenen Speicherzellen in einem Bereich liegen, der vom 
Basic-Interpreter nicht verändert wird. Der Aufruf vom 
Basic-Programm könnte also so aussehen: 

10 Dl=13 : REM Dividend 
20 D2=3 : REM Divisor 

30 POKE 36680, Dl/256 : POKE 33679, D1-256*INT(Dl/256) 

40 POKE 36678, D2/256 : POKE 33677, D2-256*INT(D2/256) 

50 SYS 36608 

60 PRINT PEEK(36679)+256*PEEK(36680), : REM Quotient 
70 PRINT PEEK(36681)+256*PEEK(36682) : REM Rest 

Etwas einfacher sieht es aus, wenn Sie die Basic-Erweite- 
rungen aus Kapitel 2.2 benutzen: 

10 Dl=13 : REM Dividend 
20 D2=3 : REM Divisor 

30 DOKE 36679, Dl 

40 DOKE 36677, D2 

50 SYS $8E00 
60 PRINT DEEK(36679), 

70 PRINT DEEK(36681) 


Integer-Dlvlsion als Befehl 


Eingabe-Parameter aus Basic-Text lesen 


BEOO 

209EAD 

JSR 

FRMEVL 

;AUSDRUCK (DIVIDEND) HOLEN 

BE03 

20BDAD 

JSR 

CHNUM 

; NUMERISCH PRUEFEN 

BE06 

20F7B7 

JSR 

FACADR 

;NACH INTEGER WANDELN 

BE09 

A514 

LDA 

^14 

;LOW-BYTE 

BEOB 

BD47BF 

STA 

♦BF47 

;DES DIVIDENDEN 

BEOE 

A515 

LDA 

$15 

;HIGH-BYTE 

BEIO 

BD4BBF 

STA 

$BF4B 


BE13 

20FDAE 

JSR 

CHKCOM 


BE16 

20BAAD 

JSR 

FRMNUM 

;WERT (DIVISOR) HOLEN 

BE19 

20F7B7 

JSR 

FACADR 

;NACH INTEGER WANDELN 

BEIC 

A514 

LDA 

$14 

; LOW-BYTE 

BEIE 

BD45BF 

STA 

$BF45 

;DES DIVISORS 

BE21 

A515 

LDA 

$15 

;HIGH-BYTE 

BE23 

BD46BF 

STA 

$BF46 



: REM Quotient 
: REM Rest 
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8E26 20008F JSR *8F00 ;IDIV-ROUTINE 

8E29 60 RTS ;FERTIG 

8E2A 


Die Eingabeparameter werden hier direkt aus dem Basic-Text 
gelesen. Das erspart uns einige POKE-Befehle, auch können 
hier komplizierte Ausdrücke als Parameter auftreten. Zur 
Auswertung der Parameter benützen wir zunächst die Basic- 
Routine FRMEVL. Diese Routine wertet einen beliebigen Pa¬ 
rameter bis zum nächsten auftauchenden Trennzeichen (Kom¬ 
ma, Doppelpunkt o.ä.) aus. Das funktioniert sowohl für 
Stringparameter als auch für numerische Parameter. Der Typ 
wird in der Zelle $0D (=13) angezeigt, die 0 ist, wenn es 
sich um einen numerischen Parameter handelt, und $FF (255) 
bei einem String-Parameter. Zur Überprüfung dieses Flags 
existiert die Routine CHNUM, die 'TYPE MISMATCH ERROR’ 
ausgibt, wenn der Typ nicht numerisch ist. 

Für den kombinierten Aufruf FRMEVF und CHNUM gibt es auch 
die Routine FRMNUM. Nach dem Aufruf dieser Routine steht 
der Parameter im Fließkomma-Akkumulator (Kurz: FAC). Für 
die Integer-DiVision brauchen wir ihn jedoch als Integer¬ 
zahl, wozu wir die Routine FACACR aufrufen, welche den 
Fließkomma-Akkumulator in eine Integerzahl umwandelt und 
in $14,$15 (Low, High) ablegt. Die Trennung der beiden 
Parameter wollen wir durch ein Komma bewerkstelligen, die 
Überprüfung der Syntax erfolgt dann mit der Routine 
CHKCOM. 

Die Ausgabeparmater werden noch genauso behandelt wie im 
vorigen Fall, so daß die Anwendung im Basic-Programm etwa 
so aussieht: 


10 Dl=13 : REM Dividend 
20 D2=3 : REM Divisor 

50 SYS (36608) D1,D2 

60 PRINT PEEK(36679)+256*PEEK(36680), : REM Quo. 
70 PRINT PEEK(36681)+256*PEEK(36682) : REM Rest 

Oder mit Basic-Erwe iterungen: 

10 Dl=13 : REM Dividend 
20 D2=3 : REM Divisor 

50 TEST D1,D2 
60 PRINT DEEK(36679), 

70 PRINT DEEK(36681) 


: REM Quotient 
: REM Rest 
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Integer-Division als Funktion 

Hier beschränken wir uns darauf, den Quotienten als 
Funktionswert zu übergeben. 


BEOO 

20FAAE 

JSR 

CHKKLA 

BE03 

209EAD 

JSR 

FRMEVL 

BE06 

20BDAD 

JSR 

CHNUM 

BE09 

20F7B7 

JSR 

FACADR 

BEOC 

A514 

LDA 

♦ 14 

BEOE 

BD47BF 

STA 

♦BF47 

BEll 

A515 

LDA 

♦ 15 

BE13 

BD4BBF 

STA 

♦BF4B 

BE16 

20FDAE 

JSR 

CHKCOM 

BE19 

20BAAD 

JSR 

FRMNUM 

BEIC 

20F7AE 

JSR 

CHKKLZ 

SEIF 

20F7B7 

JSR 

FACADR 

BE22 

A514 

LDA 

♦ 14 

BE24 

BD45BF 

STA 

♦BF45 

BE27 

A515 

LDA 

♦ 15 

BE29 

BD46BF 

STA 

♦BF46 

BE2C 

2000BF 

JSR 

♦BFOO 

BE2F 

AD47BF 

LDA 

♦BF47 

BE32 

B563 

STA 

♦63 

BE34 

AD4BBF 

LDA 

♦BF4B 

BE37 

B562 

STA 

♦62 

BE39 

3B 

SEC 


BE3A 

A290 

LDX 

#♦90 

BE3C 

BE3F 

4C49BC 

JMP 

XFLP 


KLAMMER AUF PRUEFEN 

AUSDRUCK (DIVIDEND) HOLEN 

NUMERISCH PRUEFEN 

NACH INTEGER WANDELN 

LOW-BYTE 

DES DIVIDENDEN 

HIGH-BYTE 


;WERT (DIVISOR) HOLEN 
;KLAMMER ZU PRUEFEN 
;NACH INTEGER WANDELN 
;LOW-BYTE 
;DES DIVISORS 
;HIGH-BYTE 

;IDIV-ROUTINE 
;LOW-BYTE ERGEBNIS 
;FUER XFLP-ROUTINE 
;HIGH-BYTE ERGEBNIS 

;FLAG FUER POSITIV 
;EXPONENT= 16 (+»BO) 
:NACH FLIESSK. WANDELN 


Die Syntax des Funktionsaufrufs soll wie folgt aussehen: 
PRINT IDIV(Dividend, Divisor) 

Da das Ergebnis im FAC zurückgegeben werden soll, kann 
diese Routine nicht mehr mit SYS aufgerufen werden. Statt 
dessen kann die Funktion als USR-Funktion definiert werden 
oder mit Hilfe des in Kapitel 2.2.1.5 beschriebenen Funk¬ 
tionsdekoders angesprungen werden. Bei Realisierung als 
USR-Funktion entfallen die Aufrufe von CHKKLA, FRMEVL und 
CHKKLZ, welche automatisch vom Basic-Interpreter ausge¬ 
führt werden. Unbedingt notwendig ist die Umwandlung des 
erhaltenen Integer-Ergebnisses nach Fließkomma. 

Für den Anfänger ist gerade der wichtige Punkt der Para¬ 
meterübergabe ein schwieriges Problem. Jedoch finden Sie 
im Kapitel 2.2 und in #6# und #7# noch ausreichend Bei¬ 
spiele, die Ihnen die möglichen Vorgehensweisen erläutern. 
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2.2.2 Zahlkonvertierungen 


In diesem Kapitel wollen wir verschiedene Routinen zur 
Umwandlung zwischen den Datenformaten 'Integerzahl', 
'Fließkommazahl', 'Binär-String', 'Hex-String' und 'Dezi- 
mal-String' beschreiben. Es handelt sich hierbei um 
Maschinenroutinen, die für sich nicht von Basic aus auf¬ 
gerufen werden können. Die nötigen Rahmenprogramme sind in 
Kapitel 2.2.11 zusammengestellt. 


2.2.2.1 Integer nach FließkoniBa 


Name 

Funk tion 

Aufruf 

Parameter 


Adressbere ich 


INTFLP 

16-Bit-Zahl in Fließkommazahl umwandeln 
3SR INTFLP 

$62: High-Byte der Integerzahl 
$63: Low-Byte der Integerzahl 
FAC: Fließkommazahl (Ergebnis) 

$C5E4 - $C5E9 = 50660 - 50665 


C5E4 


INTFLP 

: 

C5E4 

A290 

LDX 

#»90 

C5E6 

3B 

SEC 


C5E7 

C5EA 

4C49BC 

JMP 

• 

XFLP 


;EXPONENT + »30 
;P0SITIV 
;ROM-ROUTINE 


Beschreibung Im X-Register wird der Exponent der ge¬ 
dachten Fließkommazahl festgehalten, hier 
also '+16'. Das Carry-Flag muß gesetzt 
werden, da es sich um eine positive Zahl 
handeln soll. Danach wird die Basic-Routine 
XFLP angesprungen, die alles übrige erle- 
d igt. 
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2.2.2.2 Flleßkonna nach Integer 


Name 

Funk tion 

Aufruf 
Parame ter 


Adressbereich 


FLPINT 

Fließkomma-Akkumulator in 16-Bit- 

Integerzahl umwandeln 

□SR FLPINT 

FAC: Fließkommazahl 

$62: Integerwert High-Byte 

$63: Integerwert Low-Byte 

$C5EA - $C5FD = 50666 - 50685 


C5EA 


FLPINT; 


C5EA 

A514 

LDA *14 

;*14,*15 SICHERN 

C5EC 

48 

PHA 


C5ED 

A515 

LDA *15 


C5EF 

48 

PHA 


C5F0 

20F7B7 

JSR FACADR 

;FAC -> *14,*15 (Y/A) 

C5F3 

8562 

STA »62 

;HIGH-BYTE 

C5F5 

8463 

STY *63 

;LOW-BYTE 

C5F7 

68 

PLA 

;*14,*15 

C5FB 

8515 

STA *15 

;RESTAURIEREN 

C5FA 

68 

PLA 


C5FB 

8514 

STA *14 


C5FD 

C5FE 

60 

RTS 

> 


Beschreibung 

Hier wird die Basic-Routine FACADR verwen¬ 
det, die den FAC in $14, $15 sowie im 
Akku/Y-Register ablegt. Um den alten Wert 
von $14, $15 nicht zu überschreiben, wird 
er zunächst gesichert und anschließend 

wieder hergestellt. 


2.2.2.3 Slgned-lnteger nach Flleßkomaa 


Name 

Funktion 

Aufruf 

Parameter 


SGIFLP 

vorzeichenbehaftete 16-Bit-Zahl in Fließ¬ 
kommazahl umwandeln 
□SR $B399 

$62: High-Byte der Integerzahl 
$63: Low-Byte der Integerzahl 
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Adressbere ich 
Beschreibung 


FAC: F 

1 ießkommaz 

ah 1 

(Ergehn 

is) 



im Bas 

ic-ROM 







Die Ro 

utine arbe 

ite 

t von 

de 

n Par 

ame 

tern her 

völlig 

analog 

zu 

unser 

er 

Rout 

i ne 

INTFLP, 

jedoch 

wird hi 

er 

das 

höc 

hstwe 

rti 

gste Bit 

(MSB) 

der 16-Bi 

t-Zahl 

mit 

der 

We 

rtigkeit 

-32768 

be legt. 








• 

CM 

• 

CM 

2.4 FlleßkoiDBa 

nach Signed-Integer 

Name 

FLPSGI 


Funktion 

FAC in vorzeichenbehaftete 16-Bit 
wände ln 

Aufruf 

JSR FLPSGI 


Adressbereich 

$C5FE - $C605 

= 50686 - 50693 


C5FE 


FLPSGI; 


C5FE 

20AAB1 

JSR 

;FLPAY (ROM) 

C601 

8562 

STA *62 

;HIGH-BYTE 

C603 

8463 

STY $63 

;LOW-BYTE 

C605 

60 

RTS 


C606 


9 



Beschreibung In Basic befindet sich eine Routine, die 
den FAC in eine 16-Bit vorzeichenbehaftete 
Zahl umwandelt, und das Ergebnis in Akku- 
und Y-Register zurückgibt. Diese beiden 
Prozessor-Register werden in den Zellen $62 
und $63 abgelegt. 


2.2.2.5 Dezinalstring nach Flleßkooiaa 


Name 

Funk tion 

Aufruf 

Parameter 


AS CF LP 

String aus Dezimalziffern in Fließ¬ 
kommawert umwandeln 
3SR $B7AD 

$22, $23: Startad resse des umzuwandelnden 

Strings 
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Adressbereich 
Beschreibung 


FAC: Wert 

in Basic-ROM 

Diese Routine 
String eine von 
Dann entspricht 
t ion. 


|e des 

St r i 

ngs 




des 

Str in 

gs 




funkt 

ion ie 

rt 

nur, 

wen 

n der 

0 ve 

rsch i 

ede 

ne L 

änge 

hat. 

die 

Routi 

ne 

der 

VAL- 

Funk- 


2.2.2.6 Flleßkomaa nach Dezlaalstring 


Name 

Funktion 

Aufruf 

Parameter 


Adressbereich 


FLPASC 

FAC in Zeichenreihe aus DezimaIziffer 

umwandeln 

OSR $BDDD 

FAC: Fließkommawert 

Speicherzellen ab $00FF: beinhalten umge¬ 
wandelten FAC als String 
innerhalb des Basic-ROM 


Beschreibung Diese Routine wandelt den FAC entsprechend 
der STR$-Funktion um. 


2*2.2.7 Hexadeziaal nach Integer 


Name 

Funktion 

Aufruf 
Parame ter 


Adressbere ich 


HEX INT 

String aus Hexadezimalziffern in 
Integerwert umwandeln 
OSR HEXINT 

$22, $23:Startadresse des Strings 
Y-Register: Länge des Strings 
Y-Register: Anzahl der ausgewerteten 
Zeichen 

$C606 - $C63C = 50694 - 50748 


C606 HEXINT: 


C606 

8461 

STY 

$61 

;MAXIMALZAHL MERKEN 

C608 

AOOO 

LDY 

#0 


C60A 

8462 

STY 

$62 


C60C 

8463 

STY 

$63 




Uti1itie s 


131 


C60E 


HEXINTl; 


C60E 

C461 

CPY 

$61 

;MAXIMALZAHL VERGL. 

C610 

F02A 

BEQ 

HEXINT9 


C612 

B122 

LOA 

($22),Y 

jNAECHSTES ZEICHEN 

C614 

38 

SEC 



C615 

E930 

SBC 

#$30 

;CODE FUER "0" SUB. 

C617 

C90A 

CMP 

#10 


C619 

900A 

BCC 

HEXINT2 

;KLEINER 10, DANN 0 

C61B 

E907 

SBC 

#7 

;"A" ENTSPRICHT 10 

C61D 

C90A 

CMP 

#10 


C61F 

901B 

BCC 

HEXINT9 

;KLEINER 10, DANN E 

C621 

C910 

CMP 

#16 


C623 

B017 

BCS 

HEXINT9 

;>=16, DANN ENDE 

C625 


HEXINT2: 


C625 

0663 

ASL 

$63 

;$63,$62 MIT 16 

C627 

2662 

ROL 

$62 

{MULTIPLIZIEREN 

C629 

0663 

ASL 

$63 


C62B 

2662 

ROL 

$62 


C62D 

0663 

ASL 

$63 


C62F 

2662 

ROL 

$62 


C631 

0663 

ASL 

$63 


C633 

2662 

ROL 

$62 


C635 

0563 

ORA 

$63 

{WERT IN DIE LETZTE 

C637 

8563 

STA 

$63 

{4 BIT EINTRÄGEN 

C639 

C8 

INY 


{NAECHSTE HEXZIFFER 

C63A 

D0D2 

BNE 

HEXINTl 


C63C 


HEXINT9: 


C63C 

60 

RTS 



C63D 


i 



Beschreibung 

Die 

maximale 

Länge wird in der 


abgelegt, die Zellen $62 und $63 dienen zur 
Aufnahme des Ergebnisses und werden annul¬ 
liert. Ist die maximale Länge erreicht oder 
ist das folgende Zeichen keine Hex-Ziffer, 
so wird zu HEXINT9 verzweigt, wo das Unter¬ 
programm beendet wird. Zur Berechnung wird 
jeweils der alte Wert mit 16 multipliziert 
und dann der neue Wert hinzugeodert. 


2.2.2.8 Binär nach Integer 


Name 

Funk tion 


BININT 

Wandle Zeichenreihe aus binären Ziffern in 
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ganzzahligen Wert um 
Aufruf 3SR BININT 

Parameter Y-Register : maximale Anzahl der zuverar¬ 

beitenden Zeichen; Anzahl der verarbei¬ 
teten Zeichen 

$22, $23 Startadresse der Zeichenreihe 
$63, $62 Ergebnis (L,H) 

Adressbereich $C63D - $C65C = 50749 - 50780 


C63D 


BININT: 


C63D 

8461 

STY »61 

;MAXIMALZAHL MERKEN 

C63F 

AOOO 

LDY #0 


C641 

8462 

STY »62 


C643 

8463 

STY »63 


C645 


BININTl: 


C645 

C461 

CPY »61 


C647 

F013 

BEQ BININT9 


C649 

B122 

LDA (»22),Y 

;NAECHSTE ZIFFER 

C64B 

C930 

CMP #»30 

; "0" 

C64D 

900D 

BCC BININT9 


C64F 

C931 

CMP #»31 

;CARRY BEACHTEN ! 

C651 

F002 

BEQ BININT2 


C653 

B007 

BCS BININT9 


C655 


BININT2: 


C655 

2663 

RDL »63 

;CARRY REINROTIERN 

C657 

2662 

ROL »62 


C659 

C8 

INY 


C65A 

D0E9 

BNE BININTl 

;SCHLEIFE 

C65C 


BININT9: 


C65C 

60 

RTS 


C65D 


» 



Beschreibung Die maximale Länge wird in $61 zwischenge¬ 
speichert, das Ergebnis annuliert. Ist die 
Länge erreicht, oder das nächste Zeichen 
keine Binärziffer, so wird zu BININT9 ver¬ 
zweigt. Der Wert der Binär-Ziffer wird im 
Carry-Flag durch geschickten Vergleich ge¬ 
wonnen, und anschließend in die Speicher¬ 
zellen $63, $62 hineinrotiert, wodurch 

automatisch die Verdoppelung des alten 
Wertes vorgenommen wird. 
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2.2.2.9 Integer nach Hexadezimal 


Name INTHEX 

Funktion Integerwert in hexadezimale Zeichenreihe 

umwände ln 

Aufruf JSR INTHEX 

Parameter $63, $62 Eingabewert (L,H) 

Y : Anzahl der benötigten Stellen (1-4) 
Ab $0100 : Ergebnis als Zeichenreihe 
Abschluß mit 0-Code 

Adressbereich $0650 - $0685 = 50781 - 50821 


C65D 


INTHEX 

s 


C65D 

A900 

LOA 

#0 


C65F 

990001 

STA 

PUFFER,Y 

;ENDEMARKIERUNG 

C662 

BB 

DEY 



C663 


INTHEXl: 


C663 

A563 

LDA 

♦63 


C665 

290F 

AND 

#^0F 

;4 BIT VON ^63 

C667 

C90A 

CMP 

#^0A 


C669 

9002 

BCC 

INTHEX2 

{KLEINER 10 

C66B 

6906 

ADC 

#♦06 

{CARRY GESETZT 

C66D 


INTHEX2; 


C66D 

6930 

ADC 

#♦30 

{CARRY CLEAR ! 

C66F 

990001 

STA 

PUFFER,Y 

{EINTRÄGEN 

C672 

4662 

LSR 

♦62 

{♦63,^62 DURCH 

C674 

6663 

RDR 

♦63 

{16 TEILEN 

C676 

4662 

LSR 

♦62 


C67B 

6663 

ROR 

♦63 


C67A 

4662 

LSR 

♦62 


C67C 

6663 

ROR 

♦63 


C67E 

4662 

LSR 

♦62 


C6B0 

6663 

ROR 

♦63 


C6B2 

BB 

DEY 



C6B3 

lODE 

BPL 

INTHEXl 

{SCHLEIFE 

C6B5 

60 

RTS 




C6B6 


Beschreibung Zunächst wird der O-Oode an den Schluß des 
Ergebnis-Strings im Pufferbere ich ab $0100 
geschrieben. Dann werden die hintersten 4 
Bit des Wertes in eine hexadezimale Zahl 
umgewandelt, und diese im Puffer abgelegt 
und dann die hexadezimale Zahl um 4 Bit 
nach rechts verschoben. 
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2.2.2.10 Integer nach Binär 


Name INTBIN 

Funktion Integerzahl in binäre Zeichenreihe um¬ 

wände 1 n 

Aufruf OSR INTBIN 

Parameter $63, $62 Eingabewert (L,H) 

Y : Anzahl der benötigten Stellen (1-4) 
Ab $0100 : Ergebnis als Zeichenreihe 
Abschluß mit 0-Code 

Adressbereich $0686 - $C69B = 50822 - 50843 


C6B6 


INTBIN: 


C686 

A900 

LDA 

#0 


C6B8 

990001 

STA 

PUFFER,Y 

jENDEMARKIERUNB 

C6BB 

BB 

DEY 



C6BC 


INTBINl: 


C6BC 

4662 

LSR 

♦62 

;BIT RAUSSCHIEBEN 

C6BE 

6663 

ROR 

♦63 


C690 

A900 

LDA 

#0 


C692 

6930 

ADC 

#♦30 

{♦30 = ASCC'O") 

C694 

990001 

STA 

PUFFER,Y 

;EINTRÄGEN 

C697 

BB 

DEY 



C69B 

10F2 

BPL 

INTBINl 

;SCHLEIFE 

C69A 

60 

RTS 



C69B 


5 




Beschreibung Zunächst wird der Pufferbereich mit 0 abge¬ 
schlossen, danach ein Bit nach dem anderen 
aus dem Eingabeparameter herausrotiert und 
in eine binäre Ziffer umgewandelt. 


2.2.2.11 Rahmenprogramme zur Nutzung der 
Zahlkonvertierungen als Basicerweiterungen 


Die in den Kapitel 2.2.2.1 bis 2.2.2.10 beschriebenen Rou¬ 
tinen sind allgemeine Konvertierungs-Routinen, für die die 
Parameter extra noch gesetzt werden müssen. Deshalb sind 
in diesem Kapitel sämtliche Rahmenprogramme vorgestellt, 
die bewerkstelligen, daß bei Aufruf der Zahlkonvertierun¬ 
gen als Basic-Funktion die Parameter entsprechend gesetzt 
und verarbeitet werden. 
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Adressbereich: $C69B - $C738 = 50843 - 51000 

C69B HEXCÜNV: 


C69B 

207300 

JSR 

CHRBET 

;1. ZEICHEN ANPEILEN 

C69E 

A57A 

LDA 

BASBZ 

;BASIC-BEFEHLS-ZEIBER 

C6A0 

8522 

STA 

$22 

;-> STRINBZEIBER 

C6A2 

A57B 

LDA 

BASBZ+1 


C6A4 

8523 

STA 

$23 


C6A6 

A004 

LDY 

#4 

;MAX. 4 HEXZIFFERN 

C6A8 

2006C6 

JSR 

HEXINT 

;UMWANDLUNB 

C6AB 

20FBA8 

JSR 

$ABFB 

;BAS.BZ. UM Y ERH. 

C6AE 

AOOO 

LDY 

#0 


C6B0 

840D 

STY 

$0D 

;TYPFLAB NUMERISCH 

C6B2 

20E4C5 

JSR 

INTFLP 

;ERBEBNIS -> FAC 

C6B5 

60 

RTS 


;FERTIB 

C6B6 


f 



C6B6 


BINCONV; 


C6B6 

207300 

JSR 

CHRBET 

;1. ZEICHEN ANPEILEN 

C6B9 

A57A 

LDA 

BASBZ 

;BASIC-BEFEHLS-ZEIBER 

C6BB 

8522 

STA 

$22 

;-> STRINBZEIBER 

C6BD 

A57B 

LDA 

BASBZ+1 


C6BF 

8523 

STA 

$23 


C6C1 

AOlO 

LDY 

#16 

;MAX. 16 BINZIFFERN 

C6C3 

203DC6 

JSR 

BININT 

;UMWANDLUNB 

C6C6 

20FBA8 

JSR 

$A8FB 

;BAS.BZ. UM Y ERH. 

C6C9 

AOOO 

LDY 

#0 


C6CB 

840D 

STY 

$0D 

;TYPFLAB NUMERISCH 

C6CD 

20E4C5 

JSR 

INTFLP 

;ERBEBNIS -> FAC 

C6D0 

60 

RTS 


;FERTIB 

C6D1 


5 



C6D1 


VAL; 



C6D1 

207300 

JSR 

CHRBET 

;VAL-CÜDE UEBERLESEN 

C6D4 

20F1AE 

JSR 

FRMKLA 

»WERT IN <) HOLEN 

C6D7 

2082B7 

JSR 

$B7B2 

;FRESTR / TYPFLAB 

C6DA 

8561 

STA 

$61 

jSTRINBLAENBE 

C6DC 

AOOO 

LDY 

#0 


C6DE 

B122 

LDA 

($22),Y 

;ERSTES ZEICHEN 

C6E0 

C924 

CMP 

#$24 


C6E2 

F013 

BEQ 

HEXVAL 

;VAL VON HEXZAHL 

C6E4 

C925 

CMP 

#$25 

; "7." 

C6E6 

F018 

BEQ 

BINVAL 

;VAL VON BINAERZAHL 

C6EB 

A561 

LDA 

$61 

;STRINBLAENBE 

C6EA 

4CB0B7 

JMP 

$B7B0 

;ZUR VAL-FUNKTION 

C6ED 


5 



C6ED 


VALPAR: 

;HILFSROUTINE 

C6ED 

A461 

LDY 

$61 

;STRINBLAENBE 

C6EF 

88 

DEY 


;MINUS 1 

C6F0 

E622 

INC 

$22 

;STRINBADRESSE 

C6F2 

D002 

BNE 

VALPARI 

;PLUS 1 

C6F4 

E623 

INC 

$23 
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C6F6 


VALPARI: 


C6F6 

60 

RTS 


C6F7 


5 


C6F7 


HEXVAL; 


C6F7 

20EDC6 

JSR VALPAR 

;STRING VERKUERZEN 

C6FA 

2006C6 

JSR HEXINT 

;UMWANDLUNG 

C6FD 

4CE4C5 

JMP INTFLP 

;ERGEBNIS -> FAC 

C700 


f 


C700 


BINVAL: 


C700 

20EDC6 

JSR VALPAR 

;STRING VERKUERZEN 

C703 

203DC6 

JSR BININT 

;UMWANDLUNG 

C706 

4CE4C5 

JMP INTFLP 

;ERGEBNIS -> FAC 

C709 


f 


C709 


INTPAR: 

;HILFSRBUTINE 

C709 

20F1AE 

JSR FRMKLA 

;AUSDRUCK IN () HOLEN 

C70C 

208DAD 

JSR CHNUM 

;NUMERISCH PRUEFEN 

C70F 

20EAC5 

JSR FLPINT 

;-> INTEGER 

C712 

60 

RTS 


C713 


i 


C713 


HEXSTR: 


C713 

2009C7 

JSR INTPAR 

;WERT HOLEN 

C716 

A024 

LDY #*24 


C71B 

B4FF 

STY PUFFER¬ 

1 ;ERSTES ZEICHEN 

C71A 

A004 

LDY #4 

;4 STELLEN 

C71C 

205DC6 

JSR INTHEX 

;UMWANDLUNG 

C71F 

A9FF 

LDA #*FF 


C721 

AOOO 

LDY #*00 

;STRINGADR.=*OOFF 

C723 

4CB7B4 

JMP *B4B7 

;WEITER WIE STR* 

C726 


5 


C726 


BINSTR; 


C726 

2009C7 

JSR INTPAR 

;WERT HOLEN 

C729 

A025 

LDY #*25 

; 

C72B 

B4FF 

STY PUFFER¬ 

1 ;ERSTES ZEICHEN 

C72D 

AOlO 

LDY #16 

;16 STELLEN 

C72F 

20B6C6 

JSR INTBIN 

;UMWANDLUNG 

C732 

A9FF 

LDA #*FF 


C734 

AOOO 

LDY #*00 

;STRINGADR.=*OOFF 

C736 

4CB7B4 

JMP *B4B7 

;WEITER WIE STR* 

C739 


« 



In Kapitel 2.2.1.5 werden folgende Labels angesprungen: 

HEXCONV, wenn im Basictext ein ^-Zeichen auftrat 
BINCONV, wenn im Basictext ein %-Zeichen auftrat 
VAL, wenn die VAL-Funktion aufgerufen wird 

HEXSTR, wenn die Funktion HEX$ aufgerufen wird 
BINSTR für die Funktion BIN$. 

In diesem Abschnitt ist auch noch die kleine Routine 
INTPAR enthalten, die einen Integer-Parameter in Klammern 
holt. 
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Diese Routinen müssen unbedingt verwendet werden, wenn 
eine der Basic-Erweiterungen $, HEX$, BIN$ oder die er¬ 
weiterte VAL-Funktion verwendet werden sollen. Auf eine 
genaue Beschreibung soll verz.ichtet werden, da Ja hier nur 
die Parameter für die oben beschriebenen Routinen gesetzt 
werden. Lediglich die Routine für die erweiterte VAL-Funk¬ 
tion soll etwas näher erläutert werden. 

Zunächst , wird der Code für VAL überlesen (JSR CHRGET), 
dann wird der Parameter ausgewertet (JSR FRMKLA und JSR 
$B782). Die String-Länge wird in $61 abgelegt und das er¬ 
ste Zeichen des Strings untersucht. Ist es ein $-Zeichen, 
wird zu HEXVAL verzweigt, ist es ein %-Zeichen, zu BINVAL. 
Sonst wird einfach die String-Länge in den Akku zurück¬ 
geholt und die normale VAL-Funktion angesprungen. 

Die kleine Routine VALPAR setzt die Stringlänge um eins 
zurück und die Stringadresse um eins hoch, da das erste 
Zeichen Ja bereits bekannt ist. 


2.2.3 Erweiterte PEEK- und POKE-Funktlonen 


Die Befehle PEEK und POKE sind der Schlüssel für viele 
Programmiertricks. Jedoch kann man damit nicht den gesam¬ 
tem RAM-Bereich nutzen außerdem ist die Behandlung von 16- 
Bit-Werten umständlich. Um diesen Mangel zu beheben, stel¬ 
len wir Ihnen im folgenden die nötigen Befehle und 
Funktionen vor. 

Zusammen mit den Zahlkonvertierungen aus Kapitel 2.2.2 
bilden sie ein wertvolles Hilfsmittel, auf das Sie beim 
Testen von Programmen sicher immer zurückgreifen werden. 


2.2.3.1 PEEK ins RAM unter ROM (REEK) und 
PEEK in den Zeichengenerator (CHEEK) 


REEK bzw. CHEEK 

REEK liest immer aus einer Speicherzelle 
des RAM 

CHEEK liest im Bereich $D000 bis $DFFF aus 
dem Zeichengenerator-ROM. 


Name 

Funktion 
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Syntax 


REEK(Adresse) 

bzw. CHEEK(Adresse) 


(keine Befehle sondern Funktionen) 

Parame ter 

Adresse = Wert zwischen 0 und 65535 

Beispiel 

?PEEK($DOOO), 

REEK($DOOO), CHEEK($DOOO) 

HiIfsroutinen 

nur BASIC-ROM 


Adressbere ich 

$C400 - $C436 

= 50176 - 50230 

C400 


LADR=*C3 

; FUER LADEADRESSE 

C400 


SADR»=*C1 

; FUER ANFANGSADRESSE 

C400 




C400 

00 

PDRTMASK: BYT 

0 ;MERKER REEK/CHEEK 

C401 


$ 


C401 


REEK: 


C401 

A9FC 

LDA #7.11111100 sLDRAM 8. HIRAM 

C403 

D002 

BNE ERMPEEK 

;UNBED. SPRUNG 

C405 




C405 


CHEEK: 


C405 

A9FB 

LDA #7.11111011 ;CHAREN 

C407 


> 


C407 


ERWPEEK: 

;* ERWEITERTES PEEK * 

C407 

8D00C4 

STA PDRTMASK 

;MERKER SPEICHERN 

C40A 

20F1AE 

JSR FRMKLA 

; PARAMETER HOLEN 

C40D 

208DAD 

JSR CHNUM 

; NUMERISCH PRUEFEN 

C410 

78 

SEI 


C411 

A514 

LDA ADR 

; ADR SICHERN 

C413 

48 

PHA 


C414 

A515 

LDA ADR+1 


C416 

48 

PHA 


C417 

A501 

LDA 1 

; PROZESSOR-PORT SICHERN 

C419 

48 

PHA 


C41A 

20F7B7 

JSR FACADR 

; ADRESSE DES ZU HOLENDEN 

C41D 

AOOO 

LDY #0 

; BYTES IN ADR LADEN 

C41F 

A501 

LDA 1 


C421 

2D00C4 

AND PDRTMASK 

; BESTIMMTE ROM-BER. 

C424 

8501 

STA 1 

; AUSSCHALTEN 

C426 

B114 

LDA (ADR),Y 

! BYTE HOLEN 

C42B 

A8 

TAY 

; -> Y 

C429 

68 

PLA 

; PROZESSOR-PORT RESTAURIEREN 

C42A 

8501 

STA 1 


C42C 

68 

PLA 

; ADR RESTAURIEREN 

C42D 

8515 

STA ADR+1 


C42F 

68 

PLA 


C430 

8514 

STA ADR 


C432 

20A2B3 

JSR YFLP 

; Y -> FAC 

C435 

58 

CLI 

; INTERRUPTS EIN 

C436 

60 

RTS 

; END ERW.PEEK 

C437 


5 
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Beschreibung Da sich die Aufrufe für REEK und CHEEK nur 
durch andere Schaltung der Prozessorport- 
Leitungen unterscheiden, wird eine Hilfs¬ 
zelle PORTMASK definiert, die speichert, 
welche Port-Bits auf 0 gesetzt werden sol¬ 
len, während die Speicherzelle ausgelesen 
wird. Die übrige Leseroutine gleicht im 
wesentlichen der im ROM eingebauten PEEK- 
Routine; vor dem eigentlichen Lesen des 
Speicherinhaltes wird lediglich der Pro¬ 
zessorport umbeschrieben. Außerdem muß das 
Interrupt-Disable-Flag gesetzt werden, be¬ 
vor dies geschieht. 


2.2.3.2 16-Bit-PEEK (DEEK) 


Name DEEK 

Funktion lies 16-Bit-Wert aus Speicherzellenpaar 

Syntax DEEK(Adresse) (Funktion) 

Parameter Adresse = Adresse der ersten Speicherzelle 

eines Speicherzellenpaares, das einen 16- 
Bit-Wert in dem Format LOW-Byte, HIGH-Byte 
enthält. 

Beispiel PRINT DEEK(55) 

Hilfsroutinen FLPINT, INTFLP 


Adressbereich 

DEEK 

: $C437 

- $C456 = 50231 - 50262 



FLPINT: $C5EA 

- $C5F0 = 50666 - 50685 



INTFLP: $C5E4 

- $C5E9 = 50660 - 50665 

C437 


DEEK: 



C437 

20F1AE 

JSR 

FRMKLA 

; AUSDRUCK IN <) HOLEN 

C43A 

20BDAD 

JSR 

CHNUM 

; NUMERISCH PRUEFEN 

C43D 

20EAC5 

JSR 

FLPINT 

; -> INTEBER 

C440 

A562 

LDA 

$62 

; ZEI6ER NACH $64,$65 

C442 

B565 

STA 

$65 


C444 

A563 

LDA 

$63 


C446 

B564 

STA 

$64 


C44B 

AOOO 

LDY 

#0 


C44A 

B164 

LDA 

($64),Y 

;1. BYTE 

C44C 

B563 

STA 

$63 

;(LOW-BYTE) 

C44E 

CB 

INY 



C44F 

B164 

LDA 

($64),Y 

;2. BYTE 

C451 

B562 

STA 

$62 

; (HIGH-BYTE) 

C453 

20E4C5 

JSR 

INTFLP 

;ERGEBNIS -> FAC 

C456 

60 

RTS 


;ENDE DEEK 

C457 


9 
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Beschreibung Mit Hilfe von FRMKLA, CHNUM und FLPINT wird 
der Adreßparameter in die Speicherzellen 
$62,$63 geholt, wonach er in die Zellen 
$64,$65 kopiert wird, die als Zeiger auf 
das zu lesende Byte dienen. Die beiden zu 
lesenden Bytes werden nacheinander geholt 
und in die Zellen $63 und $62 abgelegt und 
anschließend mit Hilfe von INTFLP nach 
Fließkomma zurückgewandelt. 


2.2.3.3 16-Blt-POKE (DOKE) 


Name 

Funk tion 
Syntax 

Parameter 


Beispiel 

HiIfsroutinen 

Adressbereich 


DOKE 

schreibe 16-Bit-Wert in Zellenpaar 
DOKE Adresse, Wert oder 
SYS(50263) Adresse,Wert 

Adresse = Adresse der ersten Speicherzelle 
eines Speicherzellenpaares, 
welches eine 16-Bit-Wert in der 
Reihenfolge L,H aufnehmen soll. 
Wert = vorzeichenloser ganzzahliger Wert 
von 0 - 65535 
DOKE $0400,2000 
FLPINT 

FLPINT: $C5EA - $C5FD = 50666 - 50685 
DOKE: $0457 - $0471 = 50263 - 50289 


C457 

C457 

20eAAD 

C45A 

20F7B7 

C45D 

20FDAE 

C460 

208AAD 

C463 

20EAC5 

C466 

AOOO 

C468 

A563 

C46A 

9114 

C46C 

CG 

C46D 

A562 

C46F 

9114 

C471 

60 

C472 



DOKE: 


JSR 

FRMNUM 

JSR 

FACADR 

JSR 

CHKCOM 

JSR 

FRMNUM 

JSR 

FLPINT 

LDY 

#0 

LDA 

♦63 

STA 

(ADR),Y 

INY 


LDA 

♦62 

STA 

(ADR),Y 

RTS 



ADRESSE HOLEN 
-> ADR,ADR+1 
KOMMA PRUEFEN 
WERT HOLEN 
-> INTEGER 

LOW-BYTE 

SPEICHERN 

HIGH-BYTE 
SPEICHERN 
ENDE DOKE 
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Beschreibung Die Adresse wird mit FRMNUM und FACADR in 
das Zellenpaar ADR,ADR+1 geschafft, der 
Wert mit Hilfe von FRMNUM und FLPINT nach 
$63 und $62, woraus er dann in die Zielad¬ 
ressen gespeichert wird. 


2.2.3.4 16-Bit-PEEK ln RAM unter ROM (DREEK) 


Name DREEK 

Eunktion lies 16-Bit-Wert aus RAM-Ze1lenpaar 

Syntax DREEK (Adresse) (Eunktion) 

Parameter Adresse = Adresse der ersten Zelle eines 

RAM-Ze1lenpaares, in dem ein 16- 

Bit-Wert (L,H) abgelegt ist. 
Beispiel PRINT DEEK($AOOO) 

Hilfsroutinen EEPINT, INTELP 

Adressbere ich EEPINT: $C5EA - $C5ED = 50666 - 50685 

INTELP: $C5E4 - $C5E9 = 50660 - 50665 

DREEK: $C472 - $C49D = 50290 - 50333 


C472 


DREEK: 



C472 

20F1AE 

JSR 

FRMKLA 

; ADRESSE IN () 

C475 

20BDAD 

JSR 

CHNUM 

; NUMERISCH PRUEFEN 

0478 

20EAC5 

JSR 

FLPINT 

; -> INTEGER 

C47B 

A562 

LDA 

$62 

; ADR. NACH ♦64,^65 

C47D 

B565 

STA 

^65 


C47F 

A563 

LDA 

^63 


C481 

B564 

STA 

$64 


C4B3 

AOOO 

LDY 

#0 


C485 

A501 

LDA 

1 

; PROZESSOR-PORT SICHERN 

C4B7 

4B 

PHA 


; SICHERN 

C4BB 

7B 

SEI 


; INTERRUPTS AUS 

C489 

25FC 

AND 

7.11111100; BASIC.KERNAL, I/O 

C4BB 

B501 

STA 

1 

; AUSSCHALTEN 

C4BD 

B164 

LDA 

($64),Y 

; 1. BYTE 

C4BF 

B563 

STA 

♦63 

; (LOW-BYTE) 

C491 

CB 

INY 



C492 

B164 

LDA 

(♦64),Y 

; 2. BYTE 

C494 

B562 

STA 

♦62 

; (HIGH-BYTE) 

C496 

6B 

PLA 


; PROZESSOR-PORT 

C497 

B501 

STA 

1 

; RESTAURIEREN 

C499 

SB 

CLI 


; INTERRUPTS EIN 

C49A 

20E4C5 

JSR 

INTFLP 

; ERGEBNIS -> FAC 

C49D 

60 

RTS 


; ENDE DREEK 

C49E 
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Beschreibung 


2.2 


Name 

Funktion 

Syntax 

Parameter 


Beispiel 

HiIfsroutinen 

Adressbereich 


C49E 

C49E 20EBB7 
C4A1 78 
C4A2 A501 
C4A4 48 
C4A5 29F9 
C4A7 8501 
C4A9 AOOO 
C4AB 8A 
C4AC 9114 
C4AE 68 
C4AF 8501 
C4B1 58 
C4B2 60 
C4B3 


Beschreibung 


Diese Routine stellt eine Kombination von 
REEK und DEEK dar, so daß die Beschreibung 
aus den Kapiteln 2.2.3.1 und 2.2.3.2 her¬ 
vorgeht. 


.3.5 POKE ln RAM unter I/O (ROKE) 


ROKE 

schreibe 8-Bit-Wert in RAM-Zelle 
ROKE Adresse, Wert bzw. 

SYS(50334) Adresse,Wert 

Adresse = beliebige Adresse zwischen 0 und 
65535, in welcher der Byte-Wert 
abgelegt werden soll 
Wert = Zahl zwischen 0 und 255 
ROKE $D000, 123 
ke ine 

ROKE: $C49E - $C4B2 = 50334 - 50354 


ROKE: 

J8R 

SEI 

LDA 

PHA 

AND 

STA 

LDY 

TXA 

STA 

PLA 

STA 

CLI 

RTS 


GETAB 


#7.11111001 


ADRESSE UND WERT 
INTERRUPTS AUS 
PRÜZESSGRPÜRT 
SICHERN 

iCHAREN «< HI RAM 


1 

#0 


(ADR) ,Y 
1 


BYTE SPEICHERN 
PROZESSÜRPÜRT 
RESTAURIEREN 
INTERRUPTS EIN 
ENDE ROKE 


Diese Routine gleicht im wesentlichen dem 
Basic-POKE-Befehl, jedoch wird vorher der 
Prozessorport so umgeschaltet, daß im Be¬ 
reich $D000 bis $DFFF für Schreibzugriffe 
RAM erscheint. 
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2.2.4 Zeichengenerator ins RAM kopieren (CHARKOP) 


Name 

Funk tion 

Syntax 

Parameter 


CHARKOP 

kopiere Zeichengenerator-ROM in das 

darunter 1iegende RAM 

CHARKOP oder SYS$C4B3 bzw. SYS50355 

keine 


Beispiel CHARKOP : P0KE56567,148 : P0KE53272,53 

P0KE648,204 : PRINT CHR$(147) 

ROKE $D100,1 


Hi1fsro utinen 

ke ine 


Adressbereich 

$C4B3 - $C4D7 

= 50355 - 50391 

C4B3 


CHARBEN=tDOOO 

;ADRESSE CHARACTERS 

C4B3 


5 


C4B3 


CHARKOP; 


C4B3 

78 

SEI 

;INTERRUPTS AUS 

C4B4 

A900 

LDA #<CHARGEN 

;ZEIGER AUF CHARGEN 

C4B6 

8514 

STA ADR 


C4B8 

A9D0 

LDA #>CHAR6EN 


C4BA 

8515 

STA ADR+1 


C4BC 

A501 

LDA 1 

;PRDZESSORPORT 

C4BE 

48 

PHA 

;SICHERN 

C4BF 

29F9 

AND #7.11111001 

;CHAREN & HIRAM 

C4C1 

8501 

STA 1 


C4C3 

AOOO 

LDY #0 


C4C5 

A210 

LDX #16 

;ZAEHLER FUER PABES 

C4C7 


CHARKOPl: 


C4C7 

B114 

LDA (ADR),Y 

;BYTE AUS CHARGEN. 

C4C9 

9114 

STA (ADR),Y 

;IN RAM KOPIEREN 

C4CB 

C8 

INY 


C4CC 

D0F9 

BNE CHARKOPl 

;SCHLEIFE 

C4CE 

E615 

INC ADR+1 

jNAECHSTE PAGE 

C4D0 

CA 

DEX 

;PAGE-ZAEHLER 

C4D1 

D0F4 

BNE CHARKOPl 

;SCHLEIFE 

C4D3 

68 

PLA 

;PROZESSORPORT 

C4D4 

8501 

STA 1 

;RESTAURIEREN 

C4D6 

58 

CLI 

;INTERRUPTS EIN 

C4D7 

60 

RTS 

;ENDE CHARKOP 

C4D8 


? 


Beschreibung 

Nach Abschalten der Interrupts wird 


Zeiger (ADR, ADR+1) auf den Anfang des 
Zeichengenerators gerichtet, dann der Pro¬ 
zessorport so geschaltet, daß aus dem Zei- 
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chengenerator gelesen werden kann und in 
das darunter liegende RAM geschrieben 
werden kann und anschließend die gesamten 4 
KByte kopiert. 


Zur Anwendung: dieser Befehl kopiert lediglich das Zei- 
chengenerator-ROM in das darunter liegende RAM, so daß die 
übrigen Arbeiten, wie das Umbesetzen der Zeiger und des 
Videokontroller-Adressbereiches im Basic-Programm durchge¬ 
führt werden müssen. Im Beispiel-Programm ist dies bereits 
erledigt. Notwendig ist unter anderem die Verlegung des 
Video-RAM's in einen Bereich zwischen $C000 und $CFFF, da 
der gesamte Videokontroller-Bereich in die letzten 16 KB 
verlegt werden muß. Sie können den Zeichengenerator auch 
ohne weiteres in einen anderen RAM-Bereich legen, jedoch 
müssen Sie dann den CHARKOP-Befeh 1 mit entsprechenden 
SWAP-Befeh len umrahmen. 


2.2.5 Austausch von RAM-Berelchen (SWAP) 


Wir wollen zunächst das eigentliche Maschinenprogramm zum 
Vertauschen zweier Speicherbereiche beschreiben und dann 
das Rahmenprogramm, das die Parameter aus dem Basic-Text 
übernimmt und für die Routine SW aufbereitet. 


Name 

Funktion 
Aufruf 
Pa rame ter 


HiIfsroutinen 
Adressbereich 


SW 

Vertauschen von RAM-Bereichen 
USR SW bzw. USR $C4DC (50396) 

$C3, $C4 = Startadresse des ersten Spei¬ 
cherbereichs (l,h) 

$C1, $C2 = Startadresse des zweiten Spei¬ 
cherbereichs (L,H) 

ZAHL, ZAHL+1 = Anzahl der zu vertauschenden 
Bytes (L,H); Adresse von 
ZAHL ist hier $C4D8 (50392) 

keine 

$0408 - $0513 = 50392 - 50451 


C4D8 


) 




C4D8 

0000 

ZAHL; 

WOR 

0 

;ANZAHL BYTES 

C4DA 

00 

ZAEHL; 

BYT 

0 

;PAGE-ZAEHLER 

C4DB 

C4DC 

00 

PORTALT: 

> 

BYT 

0 

;FUER PORT 


9 
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C4DC 


SW: 



C4DC 

A501 

LDA 

1 

;PROZESSORPORT 

C4DE 

BDDBC4 

STA 

PORTALT 

;SICHERN 

C4E1 

OB 

PHP 


;FLAGS SICHERN 

C4E2 

7B 

SEI 


;INTERRUPTS AUS 

C4E3 

29FC 

AND 

#7.11111100:L0RAM & HIRAM 

C4E5 

B501 

STA 

1 


C4E7 

AOOO 

LDY 

#0 


C4E9 

BCÖAC4 

STY 

ZAEHL 

;ZAEHLER AUF NULL 

C4EC 


Sl: 



C4EC 

B1C3 

LDA 

<LADR),Y 

;1. BYTE HOLEN 

C4EE 

AA 

TAX 


;SICHERN 

C4EF 

BlCl 

LDA 

(SADR),Y 

;2. BYTE HOLEN 

C4F1 

91C3 

STA 

(LADR),Y 

;SPEICHERN 

C4F3 

BA 

TXA 



C4F4 

91C1 

STA 

(SADR),Y 

;1. BYTE SPEICHERN 

C4F6 

CB 

INY 



C4F7 

D007 

BNE 

S2 

;KEINE PAGE-GRENZE 

C4F9 

E6C4 

INC 

LADR+1 

;HIGH-BYTES ER- 

C4FB 

E6C2 

INC 

SADR+1 

;HOEHEN 

C4FD 

EEDAC4 

INC 

ZAEHL 

;PAGE-ZAEHLER 

C500 


S2: 



C500 

ADDAC4 

LDA 

ZAEHL 

;PAGEZAHL 

C503 

CDD9C4 

CMP 

ZAHL+1 

;MIT SOLL VERGL. 

C506 

90E4 

BCC 

Sl 

;SCHLEIFE 

C50B 

CCDBC4 

CPY 

ZAHL 

;LOW-BYTES VERGL. 

C50B 

90DF 

BCC 

Sl 

;SCHLEIFE 

C50D 

ADDBC4 

LDA 

PORTALT 

;PROZESSORPORT 

C510 

B501 

STA 

1 

;RESTAURIEREN 

C512 

2B 

PLP 


;FLAGS RESTAURIEREN 

C513 

60 

RTS 


;ENDE SW 

C514 


S 



Be sehr eibu ng 

Während des 

Vertauschvorganges werden 


Interrupts verhindert und der Prozessorport 
so geschaltet, daß nur RAM sichtbar ist. 
Dadurch können auch die RAM-Bereiche unter 
dem Basic und unter dem KERNAL benützt wer¬ 
den. Als Zeiger auf Start- und Zieladresse 
werden die Zellenpaare LADR, LADR+1=$C3, 
$C4 und SADR,SADR+1 = $C1,$C2 benützt. 


Name 

Funk tion 
Syntax 


SWAP 

Vertauschen von RAM-Bereichen mit Bereit¬ 
stellung der Parameter 

SWAP ADRl, ADR2, ZAHL oder 

SYS($C518) ADRl,ADR2,ZAHL 
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bzw. SWAP ADR1,ADR2 oder 

SYS($C518) ADR1,ADR2 
bzw. SWAP oder 

SYS($C518) 

Parameter ADRl = Startadresse des 1. Speicherbereichs 

ADR2 = Startadresse des 2. Speicherbereichs 
ZAHL = Anzahl der zu vertauschenden Bytes 


Beispie 1 

Hilfsroutinen 

Adressbereich 


Werden Parameter weggelassen, so gelten da¬ 
für die beim letzten SWAP-Befehl einge¬ 
stellten Werte. Wurde seit dem Laden der 
Basic-Erweiterungen noch kein SWAP-Befehl 
gegeben, so lautet die Voreinstellung: 
ADR1=$D000, ADR2=$D000,ZAHL=0 
SWAP 1024, 40960, 1000 : PAUSEl : SWAP 
SW 

SWAP: $0514 - $0574 = 50452 - 50548 
SW: $0408 - $0513 = 50392 - 50451 


C514 

OODO 

SWADRl 

: WOR 

$D000 

C516 

OODO 

SWADR2: WOR 

$D000 

CS18 


> 




C518 


SWAP: 




CS18 

207900 

JSR 

CHRBOT 


;LETZTES ZEICHEN 

C51B 

F040 

BEQ 

SWAPl 


;TRENNZEICHEN 

C51D 

208AAD 

JSR 

FRMNUM 


;1.ADRESSE HOLEN 

C520 

20F7B7 

JSR 

FACADR 


;-> ADR,ADR+1 

C523 

A514 

LDA 

ADR 



C525 

8D14CS 

STA 

SWADRl 


;-> SWADRl,SWADRl+1 

C528 

A515 

LDA 

ADR+1 



C52A 

8D15C5 

STA 

SWADRl+1 


C52D 

207900 

JSR 

CHRBOT 


;LETZTES ZEICHEN 

C530 

F02B 

BEQ 

SWAPl 


;TRENNZEICHEN 

C532 

20FDAE 

JSR 

CHKCOM 


;KOMMA PRUEFEN 

C535 

208AAD 

JSR 

FRMNUM 


;2.ADRESSE HOLEN 

C538 

20F7B7 

JSR 

FACADR 


;-> ADR,ADR+1 

C53B 

A514 

LDA 

ADR 



C53D 

8D16CS 

STA 

SWADR2 


;-> SWADR2,SWADR2+1 

C540 

A515 

LDA 

ADR+1 



C542 

8D17C5 

STA 

SWADR2+1 


C545 

207900 

JSR 

CHRBOT 


;LETZTES ZEICHEN 

C548 

F013 

BEQ 

SWAPl 


;TRENNZEICHEN 

C54A 

20FDAE 

JSR 

CHKCOM 


;KOMMA PRUEFEN 

C54D 

208AAD 

JSR 

FRMNUM 


;ANZAHL HOLEN 

C550 

20F7B7 

JSR 

FACADR 


;-> ADR,ADR+1 

C553 

A514 

LDA 

ADR 



C555 

8DD8C4 

STA 

ZAHL 


;-> ZAHL,ZAHL+1 

C558 

A515 

LDA 

ADR+1 



C55A 

8DD9C4 

STA 

ZAHL+1 
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C55D SWAPl; 


C55D 

AD14C5 

LDA 

SWADRl 

jSMADRl -> LADR 

C560 

85C3 

STA 

LADR 


C562 

AD15C5 

LDA 

SWADRl+1 


C565 

a5C4 

STA 

LADR+1 


C567 

AD16C5 

LDA 

SWADR2 

;SMADR2 -> SADR 

C56A 

85C1 

STA 

SADR 


C56C 

AD17C5 

LDA 

SWADR2+1 


C56F 

B5C2 

STA 

SADR+1 


C571 

20DCC4 

JSR 

SM 

;SM-RÜUTINE 

C574 

C575 

60 

RTS 

S 


;ENDE SMAP 

Beschreibung 

Die 

Routine 

CHRGOT setzt das 


wenn ein Trennzeichen, also Doppelpunkt 
oder Zeilenende im Basic-Text folgt. Da¬ 
durch wird überprüft, ob nach dem SWAP-Be- 
fehl noch Parameter folgen. Ist dies der 
Fall, werden sie entsprechend in die vorge¬ 
sehenen Speicherzellen übernommen und am 
Schluß die Routine SW aufgerufen. 


2.2.6 Laden ohne Veränderung der Baslc-Zelger 


Name 

Funktion 
Syntax 
Parame ter 


LAD 

Setzen der Parameter und Aufruf der 
KERNAL-Routine LOAD 
LAD ZADR, Name, GA, SA oder 

SYS($C577), ZADR, Name, GA, SA 
ZADR : Zieladresse für den zu ladenden Be¬ 
reich, wenn die Sekundäradresse weg¬ 
gelassen wird oder 0 ist. 

Name : Name der zu ladenden Datei 
GA : Geräteadresse 

SA : Sekundäradresse 


Beispiel 

Hilfsroutinen 
Ad ressbe reich 


Ist die Sekundäradresse 1, so wird die 
Zieladresse nicht durch ZADR bestimmt, son¬ 
dern aus der Datei gelesen. 

LAD $E000,“Grafik“,8 
LADO,“PROFI.OBO“,8,1 
keine 

$C575 - $C5A6 = 50549 - 50598 
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C575 

C577 

0000 

ZADR; 

LAD: 

W8R 0 

;ZIELADRESSE 

C577 

208AAD 

JSR 

FRMNUM 

;ZIELADRESSE H8LEN 

C57A 

20F7B7 

JSR 

FAOADR 

;-> ADR,ADR+1 

C57D 

A514 

LDA 

ADR 


C57F 

8D7505 

STA 

ZADR 

;-> ZADR,ZADR+1 

0582 

A515 

LDA 

ADR+1 


0584 

8D7605 

STA 

ZADR+1 


0587 

20FDAE 

JSR 

OHKOOM 

;KOMMA PRUEFEN 

058A 

20D4E1 

JSR 

PARLOSA 

;PARAMETER HOLEN 

058D 

A900 

LDA 

#0 

;LOAD (NIOHT VERIFY) 

058F 

AE7505 

LDX 

ZADR 

;ALTERNATIVE LADE- 

0592 

A07605 

LDY 

ZADR+1 

;ADRESSE 

0595 

20D5FF 

JSR 

LOAD 

;LOAD-ROUTINE 

0598 

BOOS 

BOS 

LFEHLER 

;FEHLER PRUEFEN 

059A 

20B7FF 

JSR 

READST 

;STATUS LESEN 

059D 

29BF 

AND 

#$BF 

;EOF AUSBLENDEN 

059F 

DOOl 

BNE 

LFEHLER 


05A1 

05A2 

05A2 

60 

RTS 

LFEHLER; 

;ENDE LAD 

05A2 

A21D 

LDX 

#$1D 

;NR.F. 'LOAD ERROR' 

05A4 

05A7 

4037A4 

JMP 

> 

FEHLER 

;FEHLER AUSBEBEN 


Beschreibung Die Zieladresse wird aus dem Basic-Text 
geholt und in die Zellen ZADR, ZADR+1 zwi¬ 
schengespeichert. Dann werden die Parameter 
für den LOAD-Befehl geholt und anschließend 
die LOAD-Routine aufgerufen, wonach zu 
einem Fehler verzweigt wird, wenn das 
Carry-Flag gesetzt ist oder im Status-Byte 
ein Fehler angezeigt wird. 

Bemerkung Mit diesem Befehl kann der Bereich $D000 

bis $DFFF nicht direkt beschrieben werden, 
jedoch können Sie durch eine geeignete 
Folge von SWAP und LAD-Befehlen dies be- 
werkstelligen. 


2.2.7 Speichern von RAM-Bereichen 


Name 

Funktion 


SPEI 

Setzen der Parameter für und Aufrufen der 
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KERNAL-Routine SAVE 

Syntax SPEI SADR,EADR,NAME,GA,SA oder 

SYS(50599) SADR,EADR,NAME,GA,SA 
Parameter SADR = Startadresse des abzuspeichernden 

Bereichs 

EDADR = Endadresse + 1 des abzuspeichern¬ 
den Bereichs 

Name, GA, SA : wie beim Basic-Befehl SAVE 
Beispiel SPEI 1024,2023,'BiIdschirm',8 

Hilfsroutinen keine 

Adressbereich $C5A7 - $C5E3 = 50599 - 50659 


C5A7 


SPEI: 



C5A7 

20BAAD 

JSR 

FRMNUM 

;STARTADRESSE HOLEN 

C5AA 

20F7B7 

JSR 

FACADR 

;-> ADR,ADR+1 

C5AD 

A514 

LDA 

ADR 


C5AF 

B5C1 

STA 

SADR 

;-> SADR,SADR+1 

C5B1 

A515 

LDA 

ADR+1 


C5B3 

B5C2 

STA 

SADR+1 


C5B5 

20FDAE 

JSR 

CHKCOM 

;KOMMA PRUEFEN 

C5Ba 

20BAAD 

JSR 

FRMNUM 

;ENDADRESSE HOLEN 

C5BB 

20F7B7 

JSR 

FACADR 

;-> ADR,ADR+1 

C5BE 

A514 

LDA 

ADR 


C5C0 

BD75C5 

STA 

ZADR 

;-> ZADR,ZADR+1 

C5C3 

A515 

LDA 

ADR+1 


C5C5 

BD76C5 

STA 

ZADR+1 


C5C8 

20FDAE 

JSR 

CHKCOM 

;KOMMA PRUEFEN 

C5CB 

20D4E1 

JSR 

PARLOSA 

;PARAMETER HOLEN 

C5CE 

A501 

LDA 

1 

;PROZESSORPORT 

C5D0 

4B 

PHA 


;SICHERN 

C5D1 

29FE 

AND 

#7.11111110 

i;LORAM 

C5D3 

B501 

STA 

1 


C5D5 

A9C1 

LDA 

#SADR 

;ZEIGER AUF SADR 

C5D7 

AE75C5 

LDX 

ZADR 

;ENDADRESSE 

C5DA 

AC76C5 

LDY 

ZADR+1 


C5DD 

20DBFF 

JSR 

SAVE 

;SAVE-ROUTINE 

C5E0 

6B 

PLA 


;PROZESSORPORT 

C5E1 

B501 

STA 

1 

;RESTAURIEREN 

C5E3 

60 

RTS 


;ENDE SPEI 

C5E4 


• 

f 



Be Schreibung 

Die 

Startadresse wird in die Zero 


Zellen SADR, SADR+1 geschrieben, die End¬ 
adresse in die Zellen ZADR, ZADR+1. Vor dem 
Aufruf der SAVE-Routine wird noch das Ba- 
sic-ROM ausgeschaltet, damit auch in diesem 
Bereich das RAM abgespeichert werden kann. 
Eine Behandlung von eventuell auftauchenden 
Fehlern während der SAVE-Routine erfolgt 
hier nicht. 
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Bemerkung Das Abspeichern von Bereichen nach $0000 

muß mit einer entsprechenden Kombination 
von SWAP-Befeh len und dem SPEI-Befehl er¬ 
folgen. 


2.2.8 Index-Funktion 


Name 

Funktion 
Syntax 
Pa rame ter 


Beispiel 

HiIfsro utinen 

Adressbereich 


INDEX 

Funktion zur Bestimmung der Position einer 
Zeichenreihe in einer anderen 
INDEX(Stringausruckl, Stringausdruck2) 
(Funktion, kein Befehl) 

Stringausdruckl = String, der gesucht 

werden soll 

Stringausdruck2 = String, in dem gesucht 

werden soll 

A$='WE' : PRINT INDEX(A$,”KUWEIT') 
ke ine 

$0739 - $0784 = 51001 - 51076 


C739 


STRADR1=$A7 

;ADRESSE 1. STRING 

C739 


STRADR=$22 

;ADRESSE 2. STRING 

C739 


STRLEN1=$A9 

;LAENGE 1. STRING 

C739 


STRLEN=*AA 

;LAENGE 2. STRING 

C739 


ANZ= 

$61 

;ANZAHL DURCHLAEUFE 

C739 


f 



C739 


INDEX: 



C739 

20FAAE 

JSR 

CHKKLA 

;KLAMMER AUF PRUEFEN 

C73C 

209EAD 

JSR 

FRMEVL 

;AUSDRUCK HBLEN 

C73F 

20A3B6 

JSR 

FRESTR 

;STRINGPARAMETER 

C742 

B5A9 

STA 

STRLENl 

;LAENGE SPEICHERN 

C744 

A522 

LDA 

STRADR 

;ADRESSE SICHERN 

C746 

B5A7 

STA 

STRADRl 


C74B 

A523 

LDA 

STRADR+1 

;HIGH-BYTES 

C74A 

B5AB 

STA 

STRADRl+1 


C74C 

20FDAE 

JSR 

CHKCOM 

;KGMMA PRUEFEN 

C74F 

209EAD 

JSR 

FRMEVL 


C752 

20A3B6 

JSR 

FRESTR 


C755 

BSAA 

STA 

STRLEN 


C757 

20F7AE 

JSR 

CHKKLZ 

;KLAMMER ZU PRUEFEN 

C75A 

A201 

LDX 

#1 

;ERGEBNIS = 1 

C75C 

3B 

SEC 



C75D 

A5AA 

LDA 

STRLEN 


C75F 

E5A9 

SBC 

STRLENl 

; 2. LAENGE-1.LAENGE 

C761 

901A 

BCC 

INDEXB 

;1. STRING LAENGER 
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C763 6900 ADC #0 ; +1 

C765 B561 STA ANZ ;ALS SCHLEIFENZAEHLER 

C767 INDEXl: 

C767 A4A9 LDY STRLENl ;VERBL. BEGINNT HINTEN 

C769 INDEX2: 

C769 SB DEY ;NAECHSTES ZEICHEN 

C76A 3013 BMI INDEX9 ;ALLE ZEICHEN VERBL. 

C76C B1A7 LDA (STRADR1),Y 

C76E D122 CMP (STRADR),Y ;1 ZEICHEN VERBL. 

C770 F0F7 BEQ INDEX2 ;WENN OK, NAECHSTES Z. 

C772 E622 INC STRADR ;NAECHSTE POSITION 

C774 D002 BNE INDEX3 ;KEIN UEBERTRAB 

C776 E623 INC STRADR+1 

C77B INDEX3; 

C77B EB INX ;ERGEBNIS ERHOEHEN 

C779 C661 DEC ANZ ;LAUFVARIABLE 

C77B DOEA BNE INDEXl ;SCHLEIFENENDE N. ERR. 

C77D INDEXB: 

C77D A200 LDX #0 ;ERGEBNIS = 0 

C77F INDEX9: 

C77F BA TXA 

C7B0 AB TAY 

C7B1 20A2B3 JSR YFLP ;NACH FLIESSK. WANDELN 

C7B4 60 RTS ;ENDE INDEX 

C7B5 ; 

Beschreibung Die Stringparameter werden mit Hilfe von 

FRMEVL und FRESTR ausgewertet und in Zel¬ 
len in der Zero-Page zwischengespeichert. 

Die beiden Strings werden jeweils mit 
ERMEVL und ERESTR eingelesen. Die Deskrip¬ 
toren verteilen sich auf die Speicherzellen 
STRLENl, STRADRl, STRADRl+1 für den ersten 
String und STRLEN, STRADR, STRADR+1 für den 
zweiten String. Die Anzahl der Schleifen¬ 
durchläufe berechnet sich aus STRLEN 
STRLENl + 1 und wird in ANZ gespeichert. 

Für ein negatives oder verschwindendes 

Ergebnis wird sofort zum Ende verzweigt, wo 
die gefundene Position auf Null gesetzt 
wird. Die äußere Schleife arbeitet mit zwei 
Lauf variablen, die gegeneinander laufen 

(ANZ zählt rückwärts, das X-Register auf¬ 
wärts); abgebrochen wird die Schleife, wenn 
ANZ Null ist oder der String gefunden 
wurde. Das X-Register enthält zunächst die 
gefundene Position, die mit Hilfe der 
Routine YELP in einen E1ießkommawert 

gewandelt wird. 
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Bemerkung Die Funktion wird immer funktionieren, bis 

auf einen speziellen Fall, der durch die 
Stringverwaltung des Rechners gegeben ist; 
im Direktmodus bei Verwendung von zwei 
Konstanten als Stringparameter. Dieser Fall 
hat keine konkrete Anwendung, taucht aber 
auf, wenn Sie die Funktion testen wollen. 


2.2.9 Floppy-Routlnen 


In diesem Kapitel wollen wir eine Gruppe von Befehlen und 
Routinen besprechen, die zur Behandlung der Disketten¬ 
station nützlich sind. Es ist zum einen das Einlesen des 
Disk-Status zum anderen die Möglichkeit, aus Text- oder 
Programmdateien im Direktmodus zu lesen und dadurch un¬ 
mittelbar Dateien ansehen zu können. 

Vorher müssen wir noch einige Hilfsroutinen beschreiben, 
die sich u.a. mit der Stringvariablenbehandlung des Basic 
befassen. 

Ab $9E00 (40448) befindet sich eine Sprungtabelle auf die 
benötigten Befehle DISKS, GETPZ, GETTZ und VIEW. Sofern 
Sie die Befehle als Basic-Erweiterung nutzen möchten, muß 
diese auch ins RAM geladen werden. 


9E00 


SPRUNGTABELLE ** 

9E00 

4CAD9E 

JMP DISKS 

9E03 

4C459F 

JMP SETTZ 

9E06 

4CEE9E 

JMP BETPZ 

9E09 

9E0C 

9E0C 

9E0C 

4C6B9F 

JMP VIEW 

;**************************** 
;* VARIABLE UND HILFSZELLEN * 

;**************************** 

9E0C 

9E0E 

0000 

PZNR: WDR 0 ; ZEILENNUMMER 

;DER PROGRAMMZEILE 

9E0E 

9E10 

9E10 

0000 

PZVP: WDR 0 ; VORWAERTS- 

;ZEIGER DER PROGRAMMZEILE 

> 


9 
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2.2.9.1 Hilfsroutinen 


Name STRPARL 

Funktionen schreibt Länge einer String-Variablen 

in Zelle $AA, Startadresse in $22, $23 

Parameter $47, $48 = Variablen-Adresse 

Adressbere ich $9E10 - $9E20 = 40464 - 40480 


9E10 


; ** 

STRINGPARAMETER LESEN ** 

9E10 


STRPARL: 

9E10 

A002 

LDY 

#2 

9E12 

B147 

LDA 

(VARADL),Y 

9E14 

B523 

STA 

STRADR+1 

9E16 

B8 

DEY 


9E17 

B147 

LDA 

(VARADL),Y 

9E19 

B522 

STA 

STRADR 

9E1B 

BB 

DEY 


9E1C 

B147 

LDA 

(VARADL),Y 

9E1E 

B5AA 

STA 

STRLEN 

9E20 

9E21 

60 

RTS 

5 



Name 

STRPARS 

Funktionen 

schreibe Länge des Strings aus Ze 
$AA in Variable und Startadresse 
Zelle $22, $23 in Variable 

Parameter 

$47, $48 = Variablen-Adresse 

Adressbereich 

$9E21 - $9E31 = 40481 - 40497 

9E21 

STRINBPARAMETER SCHREIBEN ** 

9E21 

STRPARS; 

9E21 A002 

LDY #2 

9E23 A523 

LDA STRADR+1 

9E25 9147 

STA (VARADL),Y 

9E27 BB 

DEY 

9E2B A522 

LDA STRADR 

9E2A 9147 

STA (VARADL),Y 

9E2C BB 

DEY 

9E2D A5AA 

LDA STRLEN 

9E2F 9147 

STA (VARADL),Y 

9E31 60 

RTS 

9E32 

9 
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Name STRZUW 

Funktionen weise String aus Eingabepuffer Platz im 

Stringbereich zu 

Parameter ZLEN = Länge des Strings im Puffer 

$AA = Länge des alten Strings 
STRADR, STRADR+1 = Startadresse des alten 

Strings 

Eingabepuffer liegt ab $A000 
Adressbereich $9E32 - $9E5B = 40498 - 40538 

9E32 STRINB-ZUWEISUNG ** 

9E32 STRZUW: 


9E32 

A5AB 

LDA 

ZLEN 

;ZEILENLAENBE 

9E34 

C5AA 

BMP 

STRLEN 

;ALTE STRINGLAENGE 

9E36 

F009 

BEQ 

STRZUl 

;GLEICH 

9E3B 

9007 

BCC 

STRZUl 

{KLEINER 

9E3A 

20F4B4 

JSR 

NEUSTR 

{NEUEN STRING 

9E3D 

8622 

STX 

STRADR 

{NEUE STRINGADRESSE 

9E3F 

B423 

STY 

STRADR+1 


9E41 

9E41 

B5AA 

STRZUl 

STA 

STRLEN 

{STRINGL.=ZEILENL. 

9E43 

AB 

TAY 


{ALS ZAEHLER 

9E44 

F014 

BEQ 

STRZU3 

{ZEILENLAENBE NULL 

9E46 

A501 

LDA 

1 

{PRÜZESSORPORT 

9E4B 

4B 

PHA 


{MERKEN 

9E49 

29FE 

AND 

#7.11111110 

{LORAM 

9E4B 

B501 

STA 

1 


9E4D 

9E4D 

9E4E 

SB 

B900A0 

STRZU2: 

DEY 

LDA INPUFF,Y 

{ZEICHEN AUS PUFFER 

9E51 

9122 

STA 

(STRADR),Y 

{IN STRING UEBERTR. 

9E53 

COOO 

CPY 

#0 

{ZAEHLER = 0 

9E55 

D0F6 

BNE 

STRZU2 

{SCHLEIFE 

9E57 

68 

PLA 


{PROZESSORPORT 

9E5B 

B501 

STA 

1 

{RESTAURIEREN 

9E5A 

9E5A 

60 

STRZU3: 

RTS 

{ENDE STRZUW 


Beschreibung ist der neue String kleiner oder gleich 
lang wie der alte String, kann der gleiche 
Bereich zur Speicherung verwendet werden. 
Auf alle Fälle wird der String aus dem Puf¬ 
fer in den Stringbereich übertragen. 


Dekodieren von Baslc-Code 

Name PZCODE 

Funktionen Wandle Basic-Code entsprechend der 

Befehlstabelle in Klartext um 
Aufruf OSR PZCODE 

Parameter Akkumulator : Basic-Code 
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ZLEN : Zeiger in Puffer 

INPUFF... : Puffer für Klartext 
Akkumulator : letztes umgewandeltes Zeichen 
Hilfsroutinen keine 

Adressbereich $9E5B - $9E94 = 40539 - 40596 


9E5B 



9E5B 


;* BASIC-CODE UMWANDELN * 

9E5B 


;**************************** 

9E5B 


PZCÜDE; 


9E5B 

PiPi 

TAX 


;CODE MERKEN 

9E5C 

102A 

BPL 

PZC0DE6 

;KEIN BASIC-TOKEN 

9E5E 

C9FF 

CMP 

#^FF 

;CODE FUER PI 

9E60 

F026 

BEQ 

PZC0DE6 

; JA 

9E62 

240F 

BIT 

*0F 

;HOCHKGMMA-MÜDUS 

9E64 

3022 

BMI 

PZCÜDE6 

; JA 

9E66 

3B 

SEC 



9E67 

E97F 

SBC 

#^7F 

;127 ABZIEHEN 

9E69 

AA 

TAX 


;ALS ZAEHLER 

9E6A 

AOFF 

LDY 

#$FF 


9E6C 


PZC0DE2; 


9E6C 

CA 

DEX 


;CODEZAEHLER 

9E6D 

FOOB 

BEQ 

PZCBDE4 

;CODE BEFUNDEN 

9E6F 


PZC0DE3: 


9E6F 

CB 

INY 


;ZEIGER IN KTAB 

9E70 

B99EA0 

LDA 

KTAB,Y 

{ZEICHEN AUS KTAB 

9E73 

lOFA 

BPL 

PZCÜDE3 

;IM WORT 

9E75 

30F5 

BMI 

PZC0DE2 

;WORTENDE 

9E77 


PZC0DE4; 


9E77 

CB 

INY 


{NAECHSTES ZEICHEN 

9E7B 

B99EA0 

LDA 

KTAB,Y 

;VON CODE-WORT 

9E7B 

3009 

BMI 

PZCBDE5 

{WORTENDE 

9E7D 

A6AB 

LDX 

ZLEN 

{ZEILENLAENGE 

9E7F 

E6AB 

INC 

ZLEN 

{ERHOEHEN 

9EB1 

9D00A0 

STA 

INPUFF,X 

{ZEICHEN ABLEGEN 

9EB4 

DOFl 

BNE 

PZC0DE4 

{UNBED. SPRUNG 

9EB6 


PZC0DE5; 


9EB6 

297F 

AND 

#^7F 

{MSB AUSBLENDEN 

9EBB 


PZCÜDE6: 


9EBB 

C922 

CMP 

#♦22 

{HOCHKOMMA 

9EBA 

DOOB 

BNE 

PZCBDE7 

{NEIN 

9EBC 

A50F 

LDA 

♦OF 

{HOCHKOMMAFLAG 

9EBE 

49FF 

EOR 

#^FF 

{UMDREHEN 

9E90 

B50F 

STA 

♦OF 


9E92 

A922 

LDA 

#♦22 

{KODE VON HOCHKOMMA 

9E94 


PZCÜDE7; 


9E94 

60 

RTS 


{ENDE PZCODE 

9E95 


9 




9 
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Beschreibung Handelt es sich nicht um einen Basic-Code 
(Akku kleiner 128), wird nur auf Anfüh¬ 
rungszeichen geprüft und dann das Unter¬ 
programm verlassen, ebenso wenn der Hoch¬ 
komma-Modus (in Zelle $0F gespeichert) 
aktiv ist. Im anderen Fall wird das zur 
Codenummer gehörige Befehlswort aus der im 
Basic-Interpreter enthaltenen Befehlswort¬ 
tabelle herausgesucht und bis auf das letz¬ 
te Zeichen in den Puffer übertragen. Das 
letzte Zeichen wird im Akku zurückgegeben. 


Dateinumaer bestiaaen 


Name GETFILN 

Funktion Hole Dateinummer aus Basic-Text und setze 

Eingabekanal 

Aufruf DSR GETFILN 

Parameter Zelle $13 = Nummer der Eingabedatei 

Hilfsroutinen keine 

Adressbereich $9E95 - $9EAC = 40597 - 40620 


9E95 


GETFILN: 


9E95 

A200 

LDX 

#0 

;DEFAULT-WERT 

9E97 

207900 

JSR 

CHRGOT 

;LETZTES ZEICHEN 

9E9A 

C923 

CMP 

#*23 

; "#" 

9E9C 

DOOC 

BNE 

GETFILN9 

;NEIN 

9E9E 

207300 

JSR 

CHRGET 

;"#" UEBERLESEN 

9EA1 

209EB7 

JSR 

GETBYT 

;DATEINUMMER HOLEN 

9EA4 

201EE1 

JSR 

BCHKIN 

;ALS EINGABEKANAL 

9EA7 

20FDAE 

JSR 

CHKCOM 

;KOMMA UEBERLESEN 

9EAA 


GETFILN9; 


9EAA 

0613 

STX 

AKT IO 

;DATEINUMMER MERKEN 

9EAC 

60 

RTS 


;ENDE GETFILN 

9EAD 


f 




Beschreibung Folgt dem Basic-Text kein so wird 

statt der Dateinummer eine Null in der 
Zelle $13 zurückgegeben. Im anderen Fall 
wird die Dateinummer mit GETBYT eingelesen, 
der Eingabekanal auf die angegebene Datei 
gelegt und das folgende Komma überlesen. 
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2.2.9.2 Disk-Status lesen 


Name 

Funk tion 


Syntax 
Parameter 
Beispiel 
HiIfsro utinen 
Adressbere ich 


DISKS 

lies Diskstatuszeile von Floppy in Variable 

DS$ ein; unmittelbare Bildschirmausgabe im 

Direktmodus 

DISK bzw. SYS40621 

Variable DS$ = Diskstatus 

DISK : ? DS$ 

STPARL, STPARS, STRZUW 


STRPARL 

$9E10 - 

$9E20 = 

40464 

- 40480 

STRPARS 

$9E21 

- $9E31 = 

40481 

- 40497 

STRZUW 

$9E32 - 

$9E5A = 

40498 

- 40538 

DISKS 

$9EAD - 

$9EED = 

40621 

- 40685 


9EAD 


DISKS: 



9EAD 

A900 

LDA 

#0 


9EAF 

B5AB 

STA 

ZLEN 

;ZEILENLAENGE=0 

9EB1 

A90B 

LDA 

#B 

jGERAET NR. B 

9EB3 

20B4FF 

JSR 

TALK 

;TALK-KOMMANDO 

9EB6 

A96F 

LDA 

# 15+^60 

;SEK. ADR. 15 

9EBB 

9EBB 

2096FF 

JSR 

DISKSl 

TKSA 

;SEK.ADR. SENDEN 

9EBB 

20A5FF 

JSR 

ACPTR 

;BYTE LESEN 

9EBE 

A4AB 

LDY 

ZLEN 


9EC0 

9900A0 

STA 

INPUFF,Y 

;ABLEGEN 

9EC3 

E6AB 

INC 

ZLEN 

;ZEILENLAENGE ERH. 

9EC5 

249D 

BIT 

♦9D 

;MODUS-FLAG 

9EC7 

1003 

BPL 

DISKS2 

;PROGRAMMMODUS 

9EC9 

9ECC 

20D2FF 

JSR 

DISKS2 

CHROUT 

;ZEICHEN AUSGEBEN 

9ECC 

C90D 

CMP 

#*0D 

;CARRIAGE-RETURN 

9ECE 

DOEB 

BNE 

DISKSl 

;SCHLEIFE 

9ED0 

20ABFF 

JSR 

UNTALK 

;UNTALK SENDEN 

9ED3 

C6AB 

DEC 

ZLEN 

;ZEILENLAENGE - 1 

9ED5 

A944 

LDA 

#♦44 

. nj,.. 

9ED7 

B545 

STA 

VARNAM 

;VARIABLENNAME 

9ED9 

A9D3 

LDA 

#^53+^B0 

."s" + STRINGFLAG 

9EDB 

B546 

STA 

VARNAM+1 


9EDD 

A9FF 

LDA 

#^FF 

;STRINGFLAG 

9EDF 

B50D 

STA 

♦OD 

;SETZEN 

9EE1 

20E7B0 

JSR 

NAMSUC 

;VARIABLE SUCHEN 

9EE4 

20109E 

JSR 

STRPARL 

;ALTE PARAM. LESEN 

9EE7 

20329E 

JSR 

STRZUW 

;STRING UEBERTRAGEN 

9EEA 

20219E 

JSR 

STRPARS 

;NEUE PARAM. SETZEN 

9EED 

9EEE 

60 

RTS 

9 


;ENDE DISKS 
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Beschreibung 


Name 

Funktion 

Syntax 

Parameter 


Beispiel 


HiIfsroutinen 
Adressbere ich 


9EEE 

9EEE 

9EEE 

9EEE 

9EEE A900 
9EF0 850F 


Zunächst 

wi rd 

ein TALK 

-Kommando mit Ger 

äte- 

adre 

sse 8 

und 

Sekundä 

radre 

sse 15 über 

den 

ser i 

eilen 

Bus 

geschickt und 

anschließend in 

eine 

r Sch 

leife 

der St 

ring 

eingelesen, 

bis 

ein 

Ca r r 

iage- 

Return 

auf tr 

i 11. D a be i 

wird 

jede 

s Ze 

ichen 

in ei 

nem 

Zwischenspei 

eher 

a bge 

legt 

und anschließ 

end d 

ie Variable 

DS$ 

gesu 

cht 

und der Stri 

ng an 

diese Vari 

able 

über 

geben 

. 





2.2.9.3 PrograMzeile lesen 


GETPZ 

lies eine Programmzeile aus Floppy-Datei 
in Variable ein 

LESP#DN, VAR oder SYS(40686)#DN, VAR 
DN = logische Dateinummer der zu lesenden 
Prog rammdatei 

VAR = Stringvariable, an die die eingele¬ 
sene Zeile zugewiesen wird 
$9E0C,$9E0D = eingelesene Zeilennummer 
(L,H) 

$9E0E,$9E0F = eingelesener Vorwärtszeiger 
10 OPEN 2,8,2Programm“ 

20 GET#2,A1$, A2$: REM Startadr. überl. 

30 LESP#2,a|:PRINTA$:IFDEEK($9E0E)THEN30 


GETFILN, 

STRPARL, 

STRZUW 

, STRPARS, 

PZCODE 

STRPARL 

: $9E10 - 

$9E20 

= 40464 

- 40480 

STRPARS 

: $9E21 - 

$9E31 

= 40481 

- 40497 

STRZUW 

: $9E32 - 

$9E5A 

= 40498 

- 40538 

PZCODE 

: $9E5B - 

$9E94 

= 40539 

- 40596 

GETFILN 

: $9E95 - 

$9EAC 

= 40597 

- 40620 

GETPZ 

: $9EEE - 

$9F44 

= 40686 

- 40772 


;* EINE PROBRAMMZEILE LESEN * 

• *■»■***■*■»■*■**■*■*■*■*■*■**■*■****■*■*■*■*■*■* 
GETPZ: 

LDA #0 

STA »OF ;HOCHKOMMAMODUS AUS 
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9EF2 

B5AB 

STA 

ZLEN 

;ZEILENLAENGE = 0 

9EF4 

20959E 

JSR 

GETFILN 

;DATEINR. FESTLEGEN 

9EF7 

20BBB0 

JSR 

VARSUC 

;VARIABLE SUCHEN 

9EFA 

20109E 

JSR 

STRPARL 

;ALTE PARAMETER LESEN 

9EFD 

2024E1 

JSR 

BGETIN 

;BYTE LESEN 

9F00 

BD0E9E 

STA 

PZVP 

;VaRWAERTSZEIGER LOW 

9F03 

2024E1 

JSR 

BGETIN 


9F06 

BD0F9E 

STA 

PZVP+1 

;VORW.Z. HIGH 

9F09 

AB 

TAY 


;FLAGS SETZEN 

9F0A 

F027 

BEQ 

GETPZ2 

jVÜRW.Z. = 0 

9F0C 

2024E1 

JSR 

BGETIN 

;BYTE LESEN 

9F0F 

BD0C9E 

STA 

PZNR 

;ZEILENNUMMER LOW 

9F12 

2024E1 

JSR 

BGETIN 


9F15 

9F18 

BD0D9E 

STA 

BETPZl 

PZNR+1 

;ZEILENNR. HIGH 

9F1B 

2024E1 

JSR 

BGETIN 

{ZEICHEN LESEN 

9F1B 

205B9E 

JSR 

PZCODE 

;UMWANDELN 

9F1E 

A4AB 

LDY 

ZLEN 

;ZEILENLAENGE 

9F20 

9900A0 

STA 

INPUFF,Y 

{ZEICHEN ABLEGEN 

9F23 

AB 

TAY 


{FLAGS SETZEN 

9F24 

FOOD 

BEQ 

GETPZ2 

{ZEILENENDE 

9F26 

A590 

LDA 

STATUS 

{STATUS-BYTE LESEN 

9F2B 

D009 

BNE 

GETPZ2 

{UNGLEICH NULL 

9F2A 

E6AB 

INC 

ZLEN 

{ZEILENLAENGE ERH. 

9F2C 

DOEA 

BNE 

GETPZl 

{SCHLEIFE 

9F2E 

A217 

LDX 

#23 

{STRING TOD LONG 

9F30 

9F33 

9F33 

4C37A4 

JMP FEHLER 

GETPZ2; 

{FEHLER AUSGEBEN 

9F33 

20329E 

JSR 

STRZUW 

{STRING ZUWEISEN 

9F36 

20219E 

JSR 

STRPARS 

{STRINGPARAM. SETZEN 

9F39 

A613 

LDX 

AKT IO 

{EINGABEDATEI 

9F3B 

F007 

BEQ 

GETPZE 

{TASTATUR 

9F3D 

20CCFF 

JSR 

CLRCHN 

{KANAELE SCHLIESSEN 

9F40 

A200 

LDX 

#0 


9F42 

9F44 

B613 

STX AKTIO 
GETPZE; 

{MERKER RUECKSETZEN 

9F44 

9F45 

60 

RTS 


{ENDE GETPZ / GETTZ 

Beschreibung 

Nac h 

Auswahl 

der Eingabe-Datei und 


der Variablen werden aus der Datei zunächst 
der Vorwärtszeiger und die Zeilennummer 
eingelesen und gespeichert. Dann wird in 
einer Schleife jeweils ein Zeichen gelesen, 
dekodiert und im Puffer abgelegt. Am Ende 
der Schleife wird der Variablen der Ergeb¬ 
nis-String zugewiesen und der Eingabekanal 
zurückgesetzt. Endekriterium einer Schleife 
ist das Auftauchen des 0-Codes. 
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Bemerkung Da der Basic-Eingabepuffer nicht benutzt 

wird, kann dieses Kommando im Direktmodus 
gegeben werden. 


2.2.9.4 Textzelle lesen 


Name 


GETTZ 


Funktion lies eine Textzeile in Variable (ähnlich 

INPUT) 

Syntax LEST #DN,VAR oder SYS(40773)#DN,VAR 

LEST VAR oder SYS(40773) VAR 


Achtung: vor LEST vom Bildschirm muß 
POKE 144,0 eingegeben werden 
Parameter DN = logische Nummer der Eingabedatei 

VAR = Variable, die einen eingelesenen 
String aufnehmen soll 
Beispiel 10 OPEN 2,8,2,'SEQDATEI’ 

20 LESP#2,A$:PRINTA$:IFST=0THEN20 


Hilfsroutinen 

GETFILN, 

STRPARL, 

STRZUW 

, STRPARS 


Ad ressbe reich 

STRPARL 

: $9E10 - 

$9E20 

= 40464 

- 40480 


STRPARS 

: $9E21 - 

$9E31 

= 40481 

- 40497 


STRZUW 

: $9E32 - 

$9E5A 

= 40498 

- 40538 


GETFILN 

: $9E95 - 

$9EAC 

= 40597 

- 40620 


GETTZ 

: $9F33 - 

$9F6A 

= 40755 

- 40810 


9F45 


GETTZ: 



9F45 

A900 

LDA 

#0 


9F47 

B5AB 

STA 

ZLEN 

;ZEILENLAENGE = 0 

9F49 

20959E 

JSR 

GETFILN 

;DATEINR. FESTLEGEN 

9F4C 

20eBB0 

JSR 

VARSUC 

;VARIABLE SUCHEN 

9F4F 

9F52 

20109E 

JSR 
GETTZ1 

STRPARL 

;ALTE PARAM. LESEN 

9F52 

2012E1 

JSR 

BAS IN 

;ZEICHEN LESEN 

9F55 

A4AB 

LDY 

ZLEN 

;ZEILENLAENGE 

9F57 

9900A0 

STA 

INPUFF,Y 

;ZEICHEN ABLEGEN 

9F5A 

C90D 

CMP 

##OD 

;ZEILENENDE 

9F5C 

F0D5 

BEQ 

GETPZ2 

;JA, WEITER BEI GETPZ2 

9F5E 

A590 

LDA 

STATUS 

;STATUS LESEN 

9F60 

DODl 

BNE 

GETPZ2 

;NICHT NULL 

9F62 

E6AB 

INC 

ZLEN 

;ZEILENLAENGE ERH. 

9F64 

DOEC 

BNE 

GETTZ1 

;SCHLEIFE 

9F66 

A217 

LDX 

#23 

;STRING TOO LONG 

9F6S 

9F6B 

4C37A4 

JMP 

> 

FEHLER 

;FEHLER AUSGEBEN 




Uti1ities 


161 


Beschreibung Nach Auswahlen der Eingabedatei und Suchen 
der Variablen wird in einer Schleife ein 
Zeichen nach dem anderen aus der Datei ein¬ 
gelesen und in den Puffer abgelegt, bis ein 
Carriage-Return auftritt. Die Abschlußbe¬ 
handlung ist die gleiche wie im vorigen 
Kapitel. 


2.2.9.5 Directory / Progranndatei anzeigen (VIEW) 


Name VIEW 

Funktion Liste Programmdatei direkt von Floppy auf 

Bildschirm 

Syntax VIEW“GA oder SYS(40825)“$“,GA 

VIEW PN$,GA oder SYS(40825)PN$,GA 
Parameter PN$ = Name der zu listenden Programmdatei 

GA = Geräteadresse 

Beispiel VIEW“$:A*“,8 : REM zeigt alle Dateien, die 

mit ’A’ beginnen 

Hilfsroutinen PZCODE 

Adressbereich PZCODE : $9E5B - $9E94 ■= 40539 - 40596 

VIEW : |9F6B - $9FEC = 40814 - 40941 


9F6B 


VIEW: 



9F6B 

20D4E1 

JSR 

PARLBSA 

;PARAMETER HOLEN 

9F6E 

A960 

LDA 

#0 +$60 

;SEK.ADR. 0 

9F70 

B5B9 

STA 

$B9 

5 MERKEN 

9F72 

A5B7 

LOA 

$B7 

;FILENAMENLAEN6E 

9F74 

F073 

BEQ 

VIEWE 

;NULL 

9F76 

20D5F3 

JSR 

$F3D5 

;DATEI OEFFNEN 

9F79 

A5BA 

LOA 

$BA 

;6ERAETEADR. 

9F7B 

20B4FF 

JSR 

TALK 

;TALK-KOMMANDO 

9F7E 

A5B9 

LDA 

$B9 

;SEK. ADR. 

9Feo 

2096FF 

JSR 

TKSA 

;SENDEN 

9FB3 

A003 

LDY 

#3 

;3*2 BYTE 

9Fe5 

B461 

STY 

$61 

;ZAEHLER 

9FB7 


VIEW2: 



9FB7 

20A5FF 

JSR 

ACPTR 

;1. BYTE HOLEN 

9FBA 

B562 

STA 

$62 

;MERKEN 

9FBC 

A490 

LDY 

STATUS 

;STATUS TESTEN 

9FBE 

D059 

BNE 

VIEWE 

;NICHT NULL 

9F90 

20A5FF 

JSR 

ACPTR 

;2. BYTE HOLEN 

9F93 

A490 

LDY 

STATUS 

;STATUS TESTEN 

9F95 

D052 

BNE 

VIEWE 

;NICHT NULL 

9F97 

C661 

DEC 

$61 

;ZAEHLER VERMINDERN 

9F99 

DOEC 

BNE 

VIEW2 

;SCHLEIFE 
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9F9B 

A662 

LDX 

$62 

;AKKU/X = HIGH/LGW 

9F9D 

20CDBD 

JSR 

ADROUT 

;VGN ZEILENNUMMER 

9FA0 

203FAB 

JSR 

SPOUT 

;UND LEERZ. AUSBEBEN 

9FA3 

A900 

LDA 

#0 


9FA5 

B5AB 

STA 

ZLEN 

jZEILENLAENGE = 0 

9FA7 

B50F 

STA 

$0F 

;HGCHKGMMAMGDUS AUS 

9FA9 


VIEW3; 



9FA9 

20A5FF 

JSR 

ACPTR 

;BYTE LESEN 

9FAC 

A490 

LDY 

STATUS 

;STATUS TESTEN 

9FAE 

D039 

BNE 

VIEWE 

;NICHT NULL 

9FB0 

AA 

TAX 


;FLAGS SETZEN 

9FB1 

FOOC 

BEQ 

VIEW4 

;ZEILENENDE 

9FB3 

205B9E 

JSR 

PZCODE 

;KGDE WANDELN 

9FB6 

A6AB 

LDX 

ZLEN 

;ZEILENLAENGE 

9FBB 

E6AB 

INC 

ZLEN 

;ERHGEHEN 

9FBA 

9D00A0 

STA 

INPUFF, 

X {ZEICHEN ABLEGEN 

9FBD 

DOEA 

BNE 

VIEW3 

{SCHLEIFE 

9FBF 


VIEW4; 



9FBF 

A501 

LDA 

1 

{PRDZESSGRPGRT 

9FC1 

4B 

PHA 


{SICHERN 

9FC2 

29FE 

AND 

#7.11111110 ;LGRAM 

9FC4 

B501 

STA 

1 


9FC6 

AOOO 

LDY 

#0 


9FCB 


VIEW5: 



9FCB 

B461 

STY 

$61 

{ZAEHLER 

9FCA 

E661 

INC 

$61 

{ERHGEHEN 

9FCC 

B900A0 

LDA 

INPUFF, 

Y {ZEICHEN AUS PUFFER 

9FCF 

20D2FF 

JSR 

CHROUT 

{AUSGEBEN 

9FD2 

A461 

LDY 

$61 


9FD4 

C4AB 

CPY 

ZLEN 

{ZEILENLAENGE 

9FD6 

DOFO 

BNE 

VIEW5 

{SCHLEIFE 

9FDB 

6B 

PLA 


{PRGZESSGRSTATUS 

9FD9 

B501 

STA 

1 

{RESTAURIEREN 

9FDB 

A90D 

LDA 

#$0D 

{ZEILENVGRSCHUB 

9FDD 

20D2FF 

JSR 

CHRGUT 

{AUSGEBEN 

9FE0 

A002 

LDY 

#2 

{2*2 BYTE 

9FE2 

B461 

STY 

$61 


9FE4 

20E1FF 

JSR 

STGP 

{STGPTASTE ABFRAGEN 

9FE7 

D09E 

BNE 

VIEW2 

{SCHLEIFE 

9FE9 


VIEWE: 



9FE9 

2042F6 

JSR 

$F642 

{CLGSE 

9FEC 

60 

RTS 


{ENDE VIEW 


9FED ; 

Beschreibung Zunächst werden die Dateiparameter geholt 
und die Datei direkt geöffnet. Dann werden 
3x2 Byte gelesen und davon die letzten 
beiden als Zeilennummer ausgegeben sowie 
die Zeile in den Puffer übernommen, bis ein 
'0-Code' auftritt. Anschließend wird die 
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Zeile aus dem Puffer ausgegeben und die 
nächste Zeile geholt, bis der Status von 
null verschieden ist. Zum Abschluß wird die 
Datei direkt geschlossen. 


2.2.10 Integer-Divlsion 


Name IDIV 

Funktion bilde ganzzahligen Quotienten und Rest von 

zwei 16 Bit-Zahlen 

Aufruf JSR IDIV bzw. SYS(36608) 

Parameter DIVIDEND,DIVIDEND+1 = Dividend (L,H) und 

Quotient (L,H) 

DIVISQR,DIVISQR+1 = Divisor (L,H) 

REST, REST+1 = Rest (L,H) 

Beispiel siehe Kapitel 2.2.1.8 

Hilfsroutinen keine 

Adressbreich $8FQQ - $BF4A = 366D8 - 36682 


BFOO 


IDIV; 


;GANZZAHLIGE DIVISIBN 

BFOO 

A200 

LDX 

#^00 


BF02 

BE49BF 

STX 

REST 


BF05 

BE4ABF 

STX 

REST+1 

;REST ANNULLIEREN 

BFOB 

AD45BF 

LDA 

DIVISBR 


BFOB 

0D46BF 

□RA 

DIVISBR+1 


BFOE 

F02E 

BEQ 

DIVNULL 

;WENN DIVISBR = 0 

BFIO 

A210 

LDX 

#16 

;BITZAEHLER AUF 16 

BF12 


IDIVl; 



BF12 

2E47BF 

RÜL 

DIVIDEND 

;CARRY VBN SBC IN ER- 

BF15 

2E4BBF 

RBL 

DIVIDEND+1 

;GEBNIS UND NAECHSTES 

BFIB 

2E49BF 

ROL 

REST 

;BIT DES DIVIDENDEN 

BFIB 

2E4ABF 

RBL 

REST+1 

;IN REST SCHIEBEN 

BFIE 

3B 

SEC 


;FUER SUBTRAKTIBN 

BFIF 

AD49BF 

LDA 

REST 

5DIVISBR VBN REST 

BF22 

ED45BF 

SBC 

DIVISBR 

;ABZIEHEN 

BF25 

AB 

TAY 


;AKKU SICHERN 

BF26 

AD4ABF 

LDA 

REST+1 

;HIGH-BYTES 

BF29 

ED46BF 

SBC 

DIVISBR+1 

;ABZIEHEN 

BF2C 

9006 

BCC 

IDIV2 

;WENN REST ZU KLEIN, 

BF2E 

BC49BF 

STY 

REST 

;DANN NICHT SPEICHERN 

BF31 

BD4ABF 

STA 

REST+1 


BF34 


IDIV2; 



BF34 

CA 

DEX 


;BITZAEHLER 

BF35 

DODB 

BNE 

IDIVl 

;SCHLEIFE 

BF37 

2E47BF 

RBL 

DIVIDEND 

;CARRY IN ERGEBNIS 

BF3A 

2E4BBF 

RBL 

DIVIDEND+1 

jHINEINRBTIEREN 

BF3D 

60 

RTS 


{FERTIG 
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BF3E 

8F3E 

6B 

DIVNULL: 

PLA 


;STACK BEREINIGEN 

BF3F 

BF40 

6B 

A214 

PLA 

LDX #20 


;NR. FUER 'DIV. BY 0' 

BF42 

6C0003 

JMP (»0300) 

;FEHLERMELDUNG 

BF45 

BF45 

0000 

5 

DIVISOR; 

WOR 

0 ;PLATZ FUER DIVISOR 

BF47 

0000 

DIVIDEND: 

WOR 

0 ;DIVIDEND UND ERGEBNIS 

BF49 

0000 

REST; 

WOR 

0 ;PLATZ FUER REST 


Beschreibung Ist der Divisor gleich Null, so wird eine 
Fehlermeldung ausgegeben. Im Vergleich zu 
anderen Codierungen des Divisions-Algori¬ 
thmus ist hier die Analogie zum Verfahren, 
das man mit Bleistift und Papier durch¬ 
führt, relativ deutlich zu sehen. Das X- 
Register dient als Bit-Zähler, das Y-Regi- 
ster nur zum Zwischenspeichern des Akkus. 


2.2.11 Zeltbehandlung alt dem CIA 


Im folgenden wollen wir kurz auf die Möglichkeiten des CIA 
bezüglich Timer und Uhr eingehen. 


2.2.11.1 Pause mit Timer 


Name 

PAUSE 

Funktion 

Flalte Programm bis zu 655.35 Sekunden 

Syntax 

PAUSE D oder SYS51083 D 

Pa rame ter 

D = Dauer / Anzahl Sekunden (auf 1/100 
genau angebbar) 

Beispiel 

PAUSE 0.25 

Fl i If sro uti nen 

ke i ne 

Ad ressbereich 

$C786 - $C7CC = 51078 - 51148 

C7B6 

FKIOO; ;FLlESSK.KONSTANTE 100 

C7S6 B7 

BYT $B7 

C7B7 4S 

BYT *48 

C7B8 00 

BYT »00 

C7S9 00 

BYT *00 

C7BA 00 

BYT *00 

C7SB 

9 

C7BB 

CIA2=^DD00 ;ADRESSE DES CIA2 

C7SB 

9 
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C7BB 


PAUSE: 



C7BB 

A97A 

LDA 

#<9B50 

;TEILRATE A LOW-BYTE 

C7BD 

BD04DD 

STA 

CIA2+4 


C790 

A926 

LDA 

#>9B50 

;TEILRATE A HIBH-BYTE 

C792 

BD05DD 

STA 

CIA2+5 


C795 

20BAAD 

JSR 

FRMNUM 

;ZEITPARAMETER HOLEN 

C79B 

A9B6 

LDA 

#<FK100 


C79A 

A0C7 

LDY 

#>FK100 


C79C 

202BBA 

JSR 

FMALK 

;MAL KONSTANTE 100 

C79F 

20F‘7B7 

JSR 

FACADR 

i-> ADR,ADR+1 

C7A2 

A514 

LDA 

ADR 


C7A4 

BD06DD 

STA 

CIA2+6 

;TEILRATE B LOW-BYTE 

C7A7 

A515 

LDA 

ADR+1 


C7A9 

BD07DD 

STA 

CIA2+7 

;TEILRATE B HIGH-BYTE 

C7AC 

ADOEDD 

LDA 

CIA2+14 

;KONTROLLREe. A 

C7AF 

29D1 

AND 

#7.11010001 

C7B1 

0911 

ORA 

#7.00010001 

C7B3 

BDOEDD 

STA 

CIA2+14 


C7B6 

ADOFDD 

LDA 

CIA2+15 

jKONTROLLREG. B 

C7B9 

29D1 

AND 

#7.11010001 

C7BB 

0959 

ORA 

#7.01011001 

C7BD 

BDOFDD 

STA 

CIA2+15 


C7C0 


PAULOOP: 


C7C0 

ADODDD 

LDA 

CIA2+13 

;INTERRUPT-FLAG-REG. 

C7C3 

2902 

AND 

#7.00000010 

C7C5 

D005 

BNE 

PAUEND 


C7C7 

20E1FF 

JSR 

STOP 

jSTOPTASTE ABFRAGEN 

C7CA 

D0F4 

BNE 

PAULOOP 

;SCHLEIFE 

C7CC 


PAUEND: 


C7CC 

60 

RTS 


;ENDE PAUSE 

Beschreibung 

Es werden die beiden Timer im CIA2 


Timer A wird so programmiert, daß seine 
Unterlauf frequenz genau 100 Hertz beträgt, 
Timer B arbeitet im one-shot-Betrieb. Bevor 
der Parameter in High-Byte und Low-Byte 
zerlegt werden kann, muß er mit 100 multi¬ 
pliziert werden. Dann werden die Timer ge¬ 
startet und gewartet, bis im Timer B ein 
Unterlauf auftritt, was im Interrupt-Kon- 
troll-Register angezeigt wird. 


2.2.11.2 Uhrzeit setzen 


Name SETTIME 

Funktion Setze Uhrzeit oder Alarmzeit im CIA 
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Syntax SETTIME Uhrnr, Zeit oder 

SYS (51968) Uhrnr, Zeit 

Parameter Uhrnr = Nummer der zu stellenden 

1 = Uhrzeit im CIAl 

2 = Uhrzeit im CIA2 

3 = Alarmzeit im CIAl 

4 = Alarmzeit im CIA2 
Zeit = Zeichenreihe der Länge 10 

”HH:MM: SS:Z” 

Beispiel SETTIME 1, “ 12:10:00:0“ 

Hilfsroutinen keine 

Adressbereich SETTIME: $CB00 - $CB8A = 51968 


CBOO 


;**************************** 

CBOO 


;* UHRZEIT IM 

CIA SETZEN * 

CBOO 


;**************************** 

CBOO 


CLOCKNR=tAB 


CBOO 


5 



CBOO 


SETTIME: 


CBOO 

209EB7 

JSR 

GETBYT 

;UHRNUMMER HOLEN 

CB03 

CA 

DEX 


;EINS ABZIEHEN 

CB04 

B6AB 

STX 

CLSCKNR 

;= CLSCKNR. 

CB06 

20FDAE 

JSR 

CHKCOM 

;KOMMA 

CB09 

209EAD 

JSR 

FRMEVL 

;STRING HOLEN 

CBOC 

20A3B6 

JSR 

FRESTR 


CBOF 

C90A 

CMP 

#10 

;10 ZEICHEN 

CBll 

F003 

BEQ 

SETTIMl 

;0K 

CB13 

4C4BB2 

JMP 

ILLQERR 

;FEHLER 

CB16 


SETTIMl: 


CB16 

A5AB 

LDA 

CLSCKNR 

;0,1,2,3 

CBIB 

4A 

LSR 

A 

;HALBIEREN 

CB19 

4B 

PHA 


;AKKU SICHERN 

CBIA 

A900 

LDA 

#0 


CBIC 

69DC 

ADC 

#^DC 

;HIGH-BYTE VON CIAl 

CBIE 

B5AB 

STA 

$AS 


CB20 

A200 

LDX 

#0 

X 

II 

o 

CB22 

B6A7 

STX 

$A7 


CB24 

AOOE 

LDY 

#14 


CB26 

B1A7 

LDA 

(♦A7),Y 

;KONTROLLREG. A 

CB2B 

09B0 

□RA 

#7.10000000 

;50HZ-FLAG SETZEN 

CB2A 

91A7 

STA 

<»A7),Y 


CB2C 

CB 

INY 



CB2D 

6B 

PLA 


;CLOCKNR. / 2 

CB2E 

4A 

LSR 

A 

;0-BIT INS CARRY 

CB2F 

OB 

PHP 


;CARRY SICHERN 

CB30 

B1A7 

LDA 

($A7),Y 

;KONTROLLREG. B 

CB32 

2A 

ROL 

A 


CB33 

2B 

PLP 


;CARRY VON OBEN 

CB34 

6A 

ROR 

A 


CB35 

91A7 

STA 

(♦A7),Y 

! ALARMZEIT/UHRZEIT 


Uhr 


im Format 


- 52106 
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CB37 

2065CB 

JSR 

AUSW2 

;2 ZIFFERN AUSW. 

CB3A 

F8 

SEO 


;BCO-ARITHMETIK 

CB3B 

C912 

CMP 

#$12 

;12 UHR 

CB3D 

F006 

BEQ 

SETT2 

;PM-FLAB AUTCM. 

CB3F 

9004 

BCC 

SETT2 

;VCR 12 UHR 

CB41 

E912 

SBC 

#$12 

;12 ABZIEHEN 

CB43 


SETTPM 

1: 


CB43 

0980 

□RA 

#7.10000000 

;PM-FLAB 

CB45 


SETT2; 



CB45 

08 

CLO 


;BCO AUS 

CB46 

AOOB 

LOY 

#11 


CB48 

91A7 

STA 

<$A7) ,Y 

;STUNBEN SETZEN 

CB4A 

2065CB 

JSR 

AUSW2 

;2 ZIFFERN AUSW. 

CB4D 

88 

OEY 



CB4E 

91A7 

STA 

<$A7),Y 

{MINUTEN SETZEN 

CB50 

2065CB 

JSR 

AUSW2 

;2 ZIFFERN AUSW. 

CB53 

88 

OEY 



CB54 

91A7 

STA 

($A7),Y 

jSEKUNOEN SETZEN 

CB56 

A122 

LOA 

(STRABR,X) 

;1/10 SEKUNOEN 

CB58 

290F 

ANO 

#$0F 


CB5A 

88 

OEY 



CB5B 

91A7 

STA 

<$A7),Y 

{SETZEN 

CB5D 

60 

RTS 



CB5E 


5 



CB5E 


INCSA: 



CB5E 

E622 

INC 

STRAOR 

{STRAOR UM EINS 

CB60 

0002 

BNE 

INCSAl 

{ERHBEHEN 

CB62 

E623 

INC 

STRAOR+l 


CB64 


INCSAl 

: 


CB64 

60 

RTS 



CB65 


f 



CB65 


i 



CB65 


AUSW2: 


{2 ZIFFERN UNO 

CB65 

A122 

LOA 

(STRAOR,X) 

{NAECHSTES ZEICHEN 

CB67 

OA 

ASL 

A 

{4 BIT NACH LINKS 

CB68 

OA 

ASL 

A 


CB69 

OA 

ASL 

A 


CB6A 

OA 

ASL 

A 


CB6B 

85A9 

STA 

$A9 

{MERKEN 

CB6D 

205ECB 

JSR 

INCSA 


CB70 

A122 

LOA 

(STRAOR,X) 

{NAECHSTES ZEICHEN 

CB72 

290F 

ANO 

#$0F 

{4 BIT AUSBLENOEN 

CB74 

05A9 

□RA 

$A9 

{MIT 1.ZIFFER COERN 

CB76 

85A9 

STA 

$A9 

{MERKEN 

CB78 

205ECB 

JSR 

INCSA 


CB7B 

A122 

LOA 

(STRAOR,X) 

{NAECHSTES ZEICHEN 

CB7D 

C93A 

CMP 

#$3A 

• II • II 

9 • 

CB7F 

F005 

BEQ 

AUSW21 

;CK 
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CB81 

68 

PLA 

;STACK BEREINIGEN 

CBOZ 

68 

PLA 


CBS3 

4C48B2 

JMP 

ILLQERR ;FEHLER 

CB86 


AUSW21 

: 

CB86 

A5A9 

LDA 

♦A9 ;ERGEBNIS IN AKKU 

CB88 

4C5ECB 

JMP 

INCSA ;ENDE UPRO AUSW2 

CB8B 


5 


Beschreibung 

Die 

Uhr-Nummer wird mit GETBYT geholt 


um eins vermindert in die Zelle CLOCKNR ge¬ 
speichert. In den Zellen $A7,$A8 wird ein 
Zeiger auf die Basisadresse des CIA errich¬ 
tet. Das High-Byte des Zeigers wird um eins 
erhöht, wenn der Wert in CLOCKNR ungerade 
ist, so daß in diesem Fall der Zeiger auf 
CIA2 zeigt. Im Kontrollregister 1 des CIA 
wird das Bit 7 gesetzt (50 Hertz). Das Bit 
1 von CLOCKNR wird in das Bit 7 des Kon¬ 
tra 1 Iregisters 2 des CIA übertragen, womit 
zwischen Uhrzeit und Alarmzeit gewählt 
wird. Zwei Hilfsroutinen erleichtern die 
weitere Verarbeitung: INCSA erhöht den Zei¬ 
ger auf den String ( STRADR,STRADR+1) um 
eins, AUSW2 wertet zwei Zeichen des Strings 
aus und prüft, ob ein Doppelpunkt folgt. 
Damit die Uhr wie im 24-Stunden-Format ar¬ 
beiten kann, muß von Stundenwert 12 abgezo¬ 
gen werden, wenn dieser größer gleich 12 
ist und statt dessen das Nachmittags-Flag 
gesetzt werden. Im CIA ist die Darstellung 
von 12 Uhr Mittag nicht eindeutig, man kann 
sie darstellen als 12 Uhr Vormittag oder 0 
Uhr Nachmittags. 


2.2.11.3 Uhrzeit lesen 


Name 

Funktion 
Syntax 
Parame ter 


TIME 

liest Zeit aus CIA-Uhr 

TIME bzw. TIME2 (Funktion) 

folgt nach dem Wort TIME eine Ziffer, so 

gibt diese die Nummer des CIA an, aus dem 

die Uhrzeit gelesen werden soll 
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Beispiel PRINT TIME,TIME2 

Hilfsroutinen keine 

Adressbereich $CB8B - $CBE8 = 52107 - 52216 


CB8B ;**************************** 
CBBB ;* UHRZEIT IM CIA LESEN * 
CBBB ;**************************** 


CBBB 


TIME; 



CBBB 

A201 

LDX 

#1 

jDEFAULTNR. = 1 

CB8D 

207900 

JSR 

CHRGDT 

;FOLGT ZIFFER 

CB90 

B003 

BCS 

TIMEl 

;NEIN 

CB92 

209EB7 

JSR 

GETBYT 

;UHRNUMMER HOLEN 

CB95 


TIMEl; 



CB95 

BA 

TXA 



CB96 

18 

CLC 



CB97 

69DB 

ADC 

#»DC-1 

;UHRNUMMER-1+$DC 

CB99 

B5AB 

STA 

$A8 

;$A7,$AB AUF CIA-BASIS 

CB9B 

A900 

LDA 

#0 


CB9D 

B5A7 

STA 

♦A7 


CB9F 

85AB 

STA 

$AB 

;ZAEHLER AUF 0 

CBAl 

A90A 

LDA 

#10 

;10 ZEICHEN 

CBA3 

20F4B4 

JSR 

NEUSTR 

;STRING EINRICHTEN 

CBA6 

8561 

STA 

$61 

;STRINGLAENGE 

CBAB 

8662 

STX 

$62 

;STRINGADR. LOW 

CBAA 

8463 

STY 

$63 

;STRINGADR. HIGH 

CBAC 

AOOB 

LDY 

#11 


CBAE 

B1A7 

LDA 

($A7),Y 

;STUNDEN 

CBBO 

F8 

SED 


{BCD-ARITHMETIK 

CBBl 

OB 

PHP 


jFLAG RETTEN 

CBB2 

297F 

AND 

#7.01111111 ;GHNE PM-FLAG 

CBB4 

C912 

CMP 

#$12 

;12 UHR 

CBB6 

D002 

BNE 

TIME3 


CBBB 

A900 

LDA 

#$00 

;12 UHR AM = 0 UHR 

CBBA 


TIME3: 



CBBA 

2B 

PLP 


;FLAG HOLEN 

CBBB 

1003 

BPL 

TIME4 

; AM 

CBBD 

18 

CLC 



CBBE 

6912 

ADC 

#$12 

;+ 12 STUNDEN 

CBCO 


TIME4; 



CBCO 

DB 

CLD 


;BCD AUS 

CBCl 

20EBCB 

JSR 

TIMEUD 

;-> STRING 

CBC4 

AOOA 

LDY 

#10 


CBC6 

B1A7 

LDA 

($A7),Y 

{MINUTEN 

CBC8 

20EBCB 

JSR 

TIMEUD 

{-> STRING 

CBCB 

A009 

LDY 

#9 


CBCD 

B1A7 

LDA 

($A7),Y 

{SEKUNDEN 

CBCF 

20EBCB 

JSR 

TIMEUD 

{-> STRING 

CBD2 

AOOB 

LDY 

#8 


CBD4 

B1A7 

LDA 

($A7),Y 

{1/10 SEKUNDEN 
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CBD6 

20E0CB 

JSR TIMEU2 

;-> STRING 

CBD9 

4CCAB4 

JMP PUSHSTR 

;STRING AUF STAPEL 

CBDC 


5 


CBDC 


TIMEUl; 

;HIGH-NYBBLE -> STRING 

CBDC 

4A 

LSR A 

;4 BIT NACH RECHTS 

CBDD 

4A 

LSR A 


CBDE 

4A 

LSR A 


CBDF 

4A 

LSR A 


CBEO 


TIMEU2: 

;LOW-NYBBLE -> STRING 

CBEO 

290F 

AND ##0F 

;4 BIT MASKIEREN 

CBE2 

0930 

ORA #*30 

;ASC-BITS FUER ZIFFER 

CBE4 


TIMEU3: 

|AKKU -> STRING 

CBE4 

A4AB 

LDY $AB 

;ZAEHLER IM STRING 

CBE6 

9162 

STA (*62),Y 

;AKKU EINTRÄGEN 

CBE8 

E6AB 

INC »AB 

;ZAEHLER ERHOEHEN 

CBEA 

60 

RTS 


CBEB 


f 


CBEB 


TIMEUD; 

;BYTE EINTRÄGEN 

CBEB 

48 

PHA 

;MERKEN 

CBEC 

20DCCB 

JSR TIMEUl 

;HIGH-NYBBLE 

CBEF 

68 

PLA 


CBFO 

20E0CB 

JSR TIMEU2 

;LOW-NYBBLE 

CBF3 

A93A 

LDA ##3A 

. II. II 
> 

CBF5 

20E4CB 

JSR TIMEU3 

;EINTRÄGEN 

CBFB 

60 

RTS 


Beschreibung 

Folgt eine 

Ziffer (Carry gleich Null 


CHRGOT), wird die Uhrnummer mit GETBYT ge¬ 
holt. Auf alle Fälle wird in den Zellen 
$A7,$A8 ein Zeiger auf den CIA errichtet. 
Anschließend wird ein String für 10 Zeichen 
eingerichtet. Zur Darstellung der Zeilen im 
24-Stunden-Format muß 12 addiert werden, 
wenn das Nachmittags-Flag gesetzt ist. Zur 
Vereinfachung der Verarbeitung dienen die 
Hilfsroutinen TIMFUl, TIMFU2, TIMFU3, die 
jeweils ein Zeichen in den String eintragen 
und TIMFUD, die gleich zwei Zeichen und den 
Doppelpunkt in den String einträgt. 


2.2.12 Key-Cllck 


Die folgende kleine Routine läßt in der zweiten Stimme des 
SID jedesmal einen Klickten erklingen, wenn eine neue Ta¬ 
ste gedrückt wird. Zur Aktivierung dieser Routine muß zum 
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einen die Lautstärke (Adresse $D418) auf einen beliebigen 
Wert gesetzt werden und außerdem die Routine im Interrupt- 
Manager aktiviert werden mit P0KE$C809, PEEK($C809) OR 2. 

Wenn Sie den Interrupt-Manager nicht benützen, können Sie 
die Routine aufrufen, indem Sie den Interrupt-Vektor auf 
die Routine richten und das RTS am Schluß der Routine 
durch einen Sprung auf die Standard-IRQ-Routine ersetzen. 


Name 

Funktion 

Aktivierung 

Parameter 

Hilfsroutinen 

Adressbereich 


KEYCLICK 

Klickten bei jedem neuen Tastendruck 

P0KE$D418,L : P0KE$C809,PEEK($C809) OR 2 

L = Lautstärke 

Interrupt-Manager 

$C000 bis $C02F = 49152 bis 49199 


ADR. 

OBJ 

* QUELLTEXT 



COOO 


7.GRB »COOO 



COOO 


SID=^D400 

;BASISADRESSE SID 


COOO 


KEYCLICK; 



COOO 

A5CB 

LDA *CB 

;BEDR. TASTE 


C002 

CD2FC0 

CMP TALT 

;MIT ALTERT TASTE VGL. 


C005 

F024 

BEQ KEYEND 

;BLEICH, DANN FERTIG 


C007 

C940 

CMP #64 

;KEINE TASTE 


C009 

F020 

BEQ KEYEND 

;KEINE, DANN FERTIG 


COOB 

A200 

LDX ##00 

5 


COOD 

BE07D4 

STX SID+7 

;GSZ. 2 FREQL = 0 


COlO 

BE0BD4 

STX SID+11 

;WELLENFORM = 0 


C013 

A204 

LDX #^04 



C015 

BE0DD4 

STX SID+13 

;SUSTAIN=0, RELEASE=4 


COIB 

A2BC 

LDX #$BC 



COIA 

BE0BD4 

STX SID+8 

jFREQH = 140 


COID 

A210 

LDX #*10 



COIF 

BE0CD4 

STX SID+12 

;ATTACK=1, DECAY=0 


C022 

A211 

LDX #*11 



C024 

BE0BD4 

STX SID+11 

;WELLENFORM DREICK 


C027 

CA 

DEX 



C028 

BE0BD4 

STX SID+11 

;KEYBIT AUS 


C02B 


KEYEND! 



C02B 

BD2FC0 

STA TALT 

;TASTE MERKEN 


C02E 

60 

RTS 

;FERTIG 


C02F 


5 



C02F 

40 

TALT: BYT 64 

;ALTE TASTE 


Beschreibung 

Die momentan gedrückte Taste ist in 

der 



Adresse $CB 

ZU finden; sie wird mit 

den 



zuletzt gespeicherten Wert verglichen; 

be i 



Gleichheit wird die Routine sofort been 

det. 
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Im anderen Fall werden die Register für die 
zweite Stimme des SID für einen Klickten 
gesetzt. 


2.2.13 Grafikbefehle 


Eine der hervorstechenden Eigenschaften des Commodore 64 
ist die hochauflösende Grafik, die jedoch von Basic aus 
nicht einfach und vor allem sehr langsam zu bedienen ist. 
Verwendet man reine Basic-Routinen zur Grafikverarbeitung, 
so liegt meistens der Grafikspeicher ab Zelle 8192, wo¬ 
durch nur etwa 6 KByte für Basic-Programme zur Verfügung 
stehen. Die im folgenden beschriebenen Erweiterungen legen 
den Grafikspeicher ab $E000 ab, also unter das KERNAL-ROM, 
wo er überhaupt keinen sonstigen Platz wegnimmt. Das Vi¬ 
deo-RAM, also der Platz für die ersten beiden Farben, wird 
nach $CCOO gelegt. 

Mit den Befehlen in diesem Kapitel können Sie die Grafik 
einschalten, wieder einschalten, löschen, umfärben, aus¬ 
schalten, einen Punkt setzen und ein Textzeichen in die 
Grafik positionieren. Damit haben Sie die entscheidenden 
Zeit- und Speicherplatzprobleme für weitere Basic-Grafik- 
Routinen gelöst. Aus Platzgründen wollen wir keine wei¬ 
teren Grafik-Routinen in Maschinensprache beschreiben. Im 
Anhang finden Sie jedoch Hinweise, wie Sie mit Hilfe des 
Basic-Loaders oder des Hex-Listings weitere Grafikbefehle 
realisieren. 

Zu Beginn des Grafik-Moduls steht eine Sprungtabelle auf 
sämtliche Labels, die als Befehle benützt werden können. 
Danach folgen die Platzreservierungen für Fließkomma-, 
Word- und Byte-Variable, sowie eine Hilfsroutine, die 
angesprungen wird, wenn in dem Moment, wo das KERNAL 
ausgeschaltet ist, die RESTORE-Taste gedrückt wird. Für 
die Grafik-Routinen sind die folgenden Zeilen (Adreßbe- 
reich $9400 - $9469 = 37888 - 37993) unbedingt zu 
übernehmen. 
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9400 


AX =:$A4 

; KOORDINATEN 

9400 


AY =^:A6 

;ANFANGSPUNKT 

9400 


EX =^P,7 

;KOORDINATEN 

9400 


EY =:$A9 

;ENDPUNKT 

9400 


PBYTE =^:AB 

;HILFSZ. FUER PUNKS 

9400 


PRDL =^:57 

;PRODUKT BZW. DIVIDEND 

9400 


PRDH=PRDL+1 


9400 


FAK1L=:$59 

;1.FAKTOR BZW. DIVISOR 

9400 


FAK1H=FAK1L+1 


9400 


FAK2=:$5B 

;2.FAKTOR 

9400 


QU0TL=^:5C 

;QUOTIENT 

9400 


QU0TH=QU0TL+1 


9400 


Z=^FD 

; ZEIGER (HILFSVAR.) 

9400 


GANFH=^:E0 

;ANF. GRAPHIK-RAM HIGH 

9400 


GENDH=i:FF 

;ENDE GRAPHIK-RAM HIGH 

9400 


VANFANG=^:CC00 

;ANFANG VIDEO-RAM 

9400 


FARBRAM=^:D800 

;ANFANG FARBRAM 

9400 


VIC=^:D000 

;BASISADR. VIDEO-CONTR 

9400 


INTL=^65 

;LOW-BYTE INT(FAC) 

9400 


INTH=i:64 

;HIGH-BYTE INT(FAC) 

9400 


5 


9400 


Fl =i;B9BC 

;FLlESSK.KONST. 1 

9400 


F05 =^BF11 

;FLIESSK.KONST. 0.5 

9400 


F2PI =:$E309 

;FLlESSK.KONST. 2*PI 

9400 


5 


9400 


ILQERR=^:B248 

; ILL. QUANTITY ERROR 

9400 


DIZERR=i:BB8A 

; ZERODIVIDE ERROR 

9400 


5 


9400 


FLDFACK=$BBA2 

; KONSTANTE NACH FAC 

9400 


FPLUSK=$B867 

; FAC = FAC+KONSTANTE 

9400 


FSIN=i:E26B 

; FAC = SIN(FAC) 

9400 


FC8S=i;E264 

; FAC = COS(FAC) 

9400 


FCHS=:$BFD4 

; FAC = -FAC 

9400 


FKMINUS=:$B850 

; FAC = KONSTANTE-FAC 

9400 


; FMALK=:$BA28 

; FAC = FAC*KONSTANTE 

9400 


FKDIV=^:BB0F 

; FAC = KONSTANTE/FAC 

9400 


FSGN=$BC2B 

; A = SGN(FAC) 

9400 


FLPSGI=i:BC9B 

; FAC NACH INT 

9400 


5 


9400 


; ** 

SPRUNGLEISTE ** 

9400 

4C6A94 

JMP GREIN 


9403 

4C0695 

JMP GRAUS 


9406 

4C9D94 

JMP LOESCH 


9409 

4CBC94 

JMP FARBE 


940C 

4C7494 

JMP GRAFEIN 


940F 

4C2795 

JMP PUNKT 


9412 

4C3396 

JMP CHAR 


9415 

4CD496 

JMP LINIE 
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9418 

4C5298 

JMP 

RECHT 



941B 

4C0099 

JMP 

BLOCK 



941E 

4C6A99 

JMP 

ELLIPSE 



9421 

4C499A 

JMP 

RADIUS 



9424 

4CD19A 

JMP 

ZEICHEN 



9^27 

4C7F9B 

JMP 

SCROLL 



942A 

4CBE9C 

JMP 

GRAFSPEI 



942D 

4C5E9D 

JMP 

GRAFLAD 



9430 

4C129D 

JMP 

GRAFMIS 



9433 


5 




9433 


5 

*** FLIESSKOMMAVARIABLE *** 

9433 


5 




9433 


RX: 


;RADIUS X-RICHTUNG 

9437 

00 

7.DUP 

5, BYT 

0 


9438 


RY: 


;RADIUS Y-RICHTUNG 

943C 

00 

7.DUP 

5, BYT 

0 


943D 


LAUF: 


jLAUFVARIABLE 

9441 

00 

■/.DUP 

5, BYT 

0 


9442 


STEP: 


{SCHRITTWEITE 

9446 

00 

■/.DUP 

5, BYT 

0 


9447 


WINK: 


{WINKEL 

944B 

00 

•/.DUP 

5, BYT 

0 


944C 


f 




944C 


;BYTE- UND WORD-VARAIBLE: 

944C 


f 




944C 

0000 

XDIFF: 

WOR 

0 

{ DIFFERENZ X-KOORD. 

944E 

00 

YDISBN 

: BYT 

0 

{ SGN. DIFF. Y-KOORD 

944F 

00 

YDIABS 

: BYT 

0 

{ ABS. DIFF. Y-KOORD 

9450 

0000 

XLAUF: 

WOR C 


{ LAUFVARIABLE 

9452 

00 

YLAUF: 

BYT C 


{ LAUFVARIABLE 

9453 

0000 

□ X: 

WOR 0 


{ KOORDINATEN 

9455 

00 

OY: 

BYT 0 


{ OBERER PUNKT 

9456 

0000 

UX: 

WOR 0 


{ KOORDINATEN 

9458 

00 

UY: 

BYT 0 


{ UNTERER PUNKT 

9459 

0000 

KX: 

WOR 0 


{ KOORDINATEN 

945B 

00 

KY: 

BYT 0 


{ KREISMITTELPUNKT 

945C 

00 

PFARBE 

: BYT 

0 

{PUNKTFARBE: 

945D 

00 

MULTI: 

BYT 

0 

{MULTI-COLOUR-MODUS 

945E 


5 




945E 


NMIHILF: ;** 

NMI-HILFSROUTINE ** 

945E 


f 




945E 

48 

PHA 



{AKKU SICHERN 

945F 

A501 

LDA 

1 



9461 

0907 

□RA 

#‘/.00000111 

{STANDARDWERTE 

9463 

8501 

STA 

1 


{IN PROZESSORPORT 

9465 

68 

PLA 




9466 

58 

CLI 



{INTERRUPTS ERMOEGL 

9467 

6CFAFF 

JMP 

(♦FFFA) 


{SPRUNG UEBER ROM- 

946A 


j 



{NMI-VEKTOR 
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2.2.13.1 Grafik einschalten 


Hier werden vier kleine Routinen vorgestellt, die die 
Befehle GRLOE (Grafik löschen), FARBE (Farbe definieren 
und ändern), GRAFEIN (Grafik wieder einschalten) und GREIN 
(Grafik einschalten und Grafik löschen) darstellen. Der 
letzte der vier Befehle ist einfach eine Kombination der 
vorherigen drei. 


Name LOESCH 

Funktion Lösche Grafikspeicher 

Syntax GRLOE oder SYS$9406 bzw. SYS37894 

Parameter keine 

Hilfsroutinen keine 

Adressbereich $949D - $94BB = 38045 - 38075 


749D 


LOESCH 

: 

;** GRAFIK LOESCHEN ** 

949D 

A9E0 

LDA 

#GANFH 


949F 

B5FE 

STA 

Z+1 


94A1 

A900 

LDA 

#0 


94A3 

B5FD 

STA 

Z 

;Z = GANF 

94A5 


LOEl; 



94A5 

AB 

TAY 


O 

II 

> 

94A6 


L0E2: 



94A6 

91FD 

STA 

(Z) ,Y 


94AB 

CB 

INY 



94A9 

DOFB 

BNE 

L0E2 

;SCHLEIFE LAUFVAR. Y 

94AB 

E6FE 

INC 

Z+1 


94AD 

A4FE 

LDY 

Z + 1 


94AF 

COFF 

CPY 

#GENDH 

; ENDEKRITERIUM 

94B1 

D0F2 

BNE 

LOEl 

;SCHLEIFE LAUFVAR Z+1 

94B3 

AB 

TAY 


;Y=0 

94B4 


L0E3: 


;RESTLICHE 

94B4 

91FD 

STA 

(Z) ,Y 

;64 BYTES 

94B6 

CB 

INY 


;LOESCHEN 

94B7 

C040 

CPY 

#64 

;B000=:$FF64 

94B9 

D0F9 

BNE 

L0E3 


94BB 

60 

RTS 

;ENDE UPRO GRAPHIK LOESCHEN 

94BC 


9 



Beschreibung 

Als 

Zeiger 

auf die momentan zu lö 


Speicherzelle dient das Zellenpaar Z,Z+1, 
wobei immer gleich pageweise gelöscht wird. 
Die letzten 64 Bytes werden extra in einer 
Schleife gelöscht. 
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Name FARBE 

Funktion Beschreibe Video-RAM und gegebenenfalls 

Farb-RAM und setze Multi-Flag 
Syntax FARBE F1,F2 oder FARBE F1,F2,F3 oder 

SYS($9409) F1,F2 oder SYS($9409) F1,F2,F3 




bzw. 

SYS(37897) 

F1,F2 oder 



SYS(37897) F1,F2 

,F3 

Parameter 

Fl = 

1. Farbe 




F2 = 

2. Farbe 




F3 = 

eventuell 3 

. Farbe 

Hilfsroutinen 

keine 


Ad ressbe re ich 

$94BC 

- $9505 = 

380 76 - 38149 

94BC 


FARBE; 

; ** 

FARBEN LESEN/SETZEN 

94BC 

209EB7 

JSR 

GETBYT ; ZEICHENFARBE -> X 

94BF 

BA 

TXA 



94C0 

OA 

ASL 

A 


94C1 

OA 

ABL 

A 


94C2 

OA 

ASL 

A 


94C3 

OA 

ASL 

A 

;A = ZF * 16 

94C4 

BD5C94 

STA 

PFARBE 


94C7 

20F1B7 

JSR 

SETBYTC 

;HI.BR.FARBE -> X 

94CA 

BA 

TXA 



94CB 

0D5C94 

ORA 

PFARBE 

;A = ZF * 16 + HF 

94CE 

AOOO 

LDY 

#0 

;SCHLEIFENZAE.=0 

94D0 

BC5D94 

STY 

MULTI 

jMULTI-COLOUR AUS 

94D3 


FARBl; 



94D3 

9900CC 

STA 

VANFANB,Y 

;BYTE 0-249 

94D6 

99FACC 

STA 

VANFANB+250 

,Y ;BYTE 250-499 

94D9 

99F4CD 

STA 

VANFANB+500 

,Y ;BYTE 500-749 

94DC 

99EECE 

STA 

VANFANB+750 

,Y ;BYTE 750-999 

94DF 

CB 

INY 



94E0 

COFA 

CPY 

#250 


94E2 

DOEF 

BNE 

FARBl 

;SCHLEIFE BIS Y=250 

94E4 

207900 

JSR 

CHRBOT 

{LETZTES ZEICHEN 

94E7 

FOlC 

BEQ 

FÄRBEND 

{TRENNZEICHEN 

94E9 

20F1B7 

JSR 

BETBYTC 

{3. FARBE LESEN 

94EC 

A9FF 

LDA 

#$FF 


94EE 

BD5D94 

STA 

MULTI 

{MULTI-FLAG SETZEN 

94F1 

BA 

TXA 



94F2 

AOOO 

LDY 

#0 


94F4 


FARB2; 



94F4 

9900DB 

STA 

FARBRAM,Y 

{FARBRAM l.TEIL 

94F7 

99FADB 

STA 

FARBRAM+250 

,Y {FARBRAM 2.TEIL 

94FA 

99F4D9 

STA 

FARBRAM+500 

,Y {FARBRAM 3.TEIL 

94FD 

99EEDA 

STA 

FARBRAM+750 

,Y {FARBRAM 4. TEIL 

9500 

CB 

INY 



9501 

COFA 

CPY 

#250 

{JE 250 BYTE 

9503 

DOEF 

BNE 

FARB2 

{SCHLEIFE 

9505 


FÄRBEND: 


9505 

60 

RTS 

;ENDE 

UPRO FARBEN SETZEN 
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Beschreibung Die beiden ersten Farben werden mit GETBYT 
geholt, zu einem Byte zusammengefaßt und 
damit der gesamte Video-RAM beschrieben. 
Dann wird geprüft, ob ein Komma folgt und 
in diesem Fall die dritte Farbe geholt. Das 
Multi-Flag wird dann auf $FF gesetzt und 
das Farb-RAM mit der dritten Farbe be¬ 
schrieben. 


Name GRAFEIN 

Funktion schalte auf Grafik-Modus um, auch auf 

Multi-Modus, wenn Multi-Flag = $FF. 
Syntax GRAFEIN oder SYS($940C) oder SYS(37900) 

Parameter keine 

Hilfsroutine keine 

Adressbere ich $9474 - $949C = 38004 - 38044 


9474 


BRAFEIN; 

9474 

A95E 

LDA 

#<NMIHILF;ADRESSE VON HILFS- 

9476 

8DFAFF 

STA 

^FFFA ;NMI-ROUTINE ALS 

9479 

A994 

LDA 

#>NMIHILF;NMI-VEKTOR IM RAM 

947B 

8DFBFF 

STA 

^FFFB 

947E 

A994 

LDA 

#7.10010100 

9480 

BDOODD 

STA 

$DDOO ;VIDEOBERICH AB ^COOO 

9483 

A93B 

LDA 

#7.00111011 

9485 

BDI IDO 

STA 

VIC+17 ;HI-RES EIN 

9488 

A93B 

LDA 

#7.00111011 ; VIDEO-RAM AB ^CCOO 

948A 

8D18D0 

STA 

VIC+24 ;GRAPHIK-RAM BEI ♦EOOO 

948D 

AD16D0 

LDA 

VIC+22 

9490 

29EF 

AND 

#7.11101111 ;MULTI-COLOUR AUS 

9492 

2C5D94 

BIT 

MULTI 

9495 

1002 

BPL 

GRAFEINI 

9497 

0910 

ORA 

#7.00010000 ;MULTI-COLOUR EIN 

9499 


GRAFEINI: 

9499 

8D16D0 

STA 

VIC+22 

949C 

949D 

60 

RTS 

« 

;FERTIG (GREIN) 

Beschreibung 

Im VIC-Register 17 wird auf HIRES umge¬ 
schaltet, im Register 24 werden die Zeiger 
auf die Bit-Map und den Video-RAM gesetzt, 
im Register 22 im Bedarfsfall das Multi-Bit 
gesetzt und im CIA2 der Arbeitsbereich des 
VIC verlegt. 



178 


Kapitel 2 


Name 

Funktion 

Syntax 


Parameter 


Hi1fsro utinen 
Adressbereich 


GREIN 

kombinierter Aufruf von LOESCH, FARBE, 


GRAFEIN 

GREIN Fl, F2 bzw. GREIN Fl, F2, F3 oder 
SYS($9400) F1,F2 bzw. SYS(37888) F1,F2 
SYS($9400) F1,F2,F3 bzw. 

SYS(37888) F1,F2,F3 
Fl = 1. Farbe 
F2 = 2. Farbe 
F3 = eventuell 3. Farbe 
LOESCH, FARBE, GRAFEIN 

LOESCH :$949D - $94BB = 38045 - 38075 

FARBE :$94BC - $9505 = 38076 - 38149 

GRAFEIN:$9474 - $949C = 38004 - 38044 

GREIN :$946A - $9473 = 37994 - 38003 


946A 


GREIN: 


946A 

209D94 

JSR 

LOESCH 

946D 

20BC94 

JSR 

FARBE 

9470 

207494 

JSR 

GRAFEIN 

9473 

9474 

60 

RTS 

« 



Beschreibung Hier werden die drei oben genannten Routi¬ 
nen nacheinander aufgerufen. 


2.2.13.2 Grafik ausschalten 


Name 

Funktion 
Syntax 
Parameter 
HiIfsroutine 
Adressbereich 


GRAUS 

Grafik ausschalten 

GRAUS oder SYS($9403) oder SYS(37891) 

keine 

ke ine 

$9506 - 951D = 38150 - 38173 


9506 


GRAUS: 


GRAFIK AUS ** 

9506 

A997 

LDA 

#7.10010111 

;STANDARDWERTE 

950B 

BDOODD 

STA 

♦DDOO 

;CIA2 PORT A 

950B 

A91B 

LDA 

#7.00011011 


950D 

BDI IDO 

STA 

VIC+17 


9510 

A915 

LDA 

#7.00010101 

;NORMALWERTE IM VIC 

9512 

BDIBDO 

STA 

VIC+24 

;WIEDERHERSTELLEN 

9515 

AD16D0 

LDA 

VIC+22 
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951B 29EF AND #7.11101111 

951A BD16D0 STA VIC+22 ;MULTI-C0L0R AUS 

951D 60 RTS ;FERTIG (GRAUS) 

951E ; 


Beschreibung Diese Routine macht die Änderungen der 
Routine GRAFEIN rückgängig und setzt damit 
den Video-RAM zurück nach $0400 und schal¬ 
tet die entsprechenden anderen Bits im 
Video-Kontroller und im CIA2 zurück. 


2.2.13.3 Punkt setzen 


Zunächst soll die eigentliche Routine zum Setzen eines 
Punktes beschrieben werden, danach die dazu notwendigen 
Routinen zum Lesen der Punktfarbe und zum Multiplizieren. 

Die Punkt-Routine hat zwei Einsprungstellen, die eine 
(PUNKT) zur Verwendung als Basic-Befehl, die andere 
(PUNKS) zur Verwendung für weitere Maschinen-Routinen 
(Aufruf:OSR PUNKS), wobei in den Zellen ADR,ADR+1 die X- 
Koordinate, im X-Register die Y-Koordinate und in der 
Zelle PFARBE die Farbe ($FF,0,1,2,3,4) übergeben werden 
muß. 


Name PUNKT bzw. PUNKS 

Funktion setze, lösche oder invertiere einen Punkt 

Syntax PUNKT PF,PX,PY oder SYS (37903)PF,PX,PY 

Parameter PF = Punktfarbe 

normal:-! = Invertieren 

0 = Löschen 

1 = Setzen 

Multi : 0 = Löschen 

1=1. Farbe 
2=2. Farbe 
3=3. Farbe 

PX = X-Koordinate des Punktes 

normal: Wert zwischen 0 und 319 
Multi : Wert zwischen 0 und 159 
PY = Y-Koordinate des Punktes (0-199) 
Hilfsroutinen MULT,PFL 

Adressbere ich MULT :$9605 - $9628 = 


38405 


38440 
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PUNKT:$951E 

- $95EE = 38174 - 38302 



PFL :$95EF 

- $9604 = 38383 - 38404 

951E 


PUNERR: 

FEHLER BEI PUNKS ** 

951E 

A501 

LDA 1 

;PROZESSORPORT 

9520 

0907 

ORA #7.00000111 ; STANDARDWERTE 

9522 

B501 

STA 1 

;SETZEN 

9524 

4C4BB2 

JMP ILQERR 

;"ILLEGAL QUANTITY" 

9527 


fl 


9527 


PUNKT: 

;PUNKT ALS BASIC-BEFEHL 

9527 

20EF95 

JSR PFL 

;PUNKTFARBE LESEN 

952A 

20FDAE 

JSR CHKCOM 

;KOMMA UEBERLESEN 

952D 

20EBB7 

JSR GETAB 

;KOORDINATEN LESEN 

9530 


5 


9530 


PUNKS: 

PUNKT SETZEN ** 

9530 


;X-KBORD. IN ADR,ADR+1 

9530 


;Y-KOORD. IM X-REGISTER 

9530 


5 


9530 

EOCB 

CPX #200 


9532 

BOEA 

BCS PUNERR 

;Y-KODRD. > 199 

9534 

2C5D94 

BIT MULTI 


9537 

1003 

BPL FORTS 

;WENN MINUSFLAG=1 

9539 

4CC495 

JMP PUNKM 

;DANN SPRUNG NACH PUNKM 

953C 


FORTS: 

;SONST FORTSETZUNG 

953C 

A515 

LDA ADR+1 


953E 

FOOA 

BEQ PUNl 

;X-KOORD. < 256 

9540 

C901 

CMP #1 


9542 

DODA 

BNE PUNERR 

;X-KOORD. >511 

9544 

A514 

LDA ADR 


9546 

C940 

CMP #64 


954B 

B0D4 

BCS PUNERR 

;X-KOORD. > 319 

954A 


PUNl: 


954A 

A514 

LDA ADR 


954C 

2907 

AND #*07 


954E 

AB 

TAY 

; Y = X AND 7 

954F 

3B 

SEC 

; ZUM HINEINROTIEREN 

9550 

A900 

LDA #$00 


9552 


PUN2: 


9552 

6A 

ROR A 


9553 

BB 

DEY 

; ZAEHLER 

9554 

lOFC 

BPL PUN2 


9556 


5 

A=2''(7-(XK AND 7) ) 

9556 

B5AB 

STA PBYTE 

; WERT SICHERN 

955B 


5 


955B 

A514 

LDA ADR 


955A 

29FB 

AND #$FB 


955C 

B514 

STA ADR 

; ADR = XK AND $FFFB 

955E 


f 


955E 


PUN3: 


955E 

OB 

PHP 

;PROZ.STATUS SICHERN 
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955F 

78 

SEI 

;INTERRUPT VERHINDERN 

9560 

A501 

LDA 

1 

9562 

48 

PHA 

;PORTWERT MERKEN 

9563 

29FD 

AND 

#7.11111101 ;HIRAM = 0 

9565 

8501 

STA 

1 ;KERNAL AUSBLENDEN 

9567 

8A 

TXA 


9568 

2907 

AND 

#♦07 ; A = YK AND 7 

956A 

18 

CLC 


956B 

6514 

ADC 

ADR ; A = ADR + (YK AND 7) 

956D 

8514 

STA 

ADR 

956F 

A515 

LDA 

ADR+1 

9571 

6^E0 

ADC 

#GANFH 

9573 

8515 

STA 

ADR+1 

9575 


;ADR= BANF+(XK AND ♦FFF8)+(YK AND 

9575 

8A 

TXA 


9576 

29F8 

AND 

#^FB 

9578 

8559 

STA 

FAKIL 

957A 

A900 

LDA 

#♦00 

957C 

855A 

STA 

FAKIH ;FAK1 = YK AND ♦OOFB 

957E 

A928 

LDA 

#40 

9580 

855B 

STA 

FAK2 ;FAK2 = 40 

9582 

200596 

JSR 

MULT ;PRD = FAKl * FAK2 

9585 

18 

CLC 


9586 

A514 

LDA 

ADR 

9588 

6557 

ADC 

PRDL 

958A 

8514 

STA 

ADR 

958C 

A515 

LDA 

ADR+1 

958E 

6558 

ADC 

PRDH 

9590 

8515 

STA 

ADR+1 ;ADR = ADR + PRD 

9592 


; ADR= GANF+(XK AND ♦FFFS) + 

9592 


; 

- (YK AND 7) + 40 * (YK AND ♦F8 

9592 

A5AB 

LDA 

PBYTE ; ZU SETZENDES BIT 

9594 

AOOO 

LDY 

#♦00 

9596 

2C5D94 

BIT 

MULTI 

9599 

AE5C94 

LDX 

PFARBE 

959C 

7012 

BVS 

PUN4 ; SPRUNG, WENN MULTI 

959E 

1004 

BPL 

PUN5 

95A0 

5114 

EOR 

(ADR),Y jPUNKT INVERTIEREN 

95A2 

95A4 

5019 

BVC 

PUN5; 

PUNE ;UNBED. SPRUNG 

95A4 

F004 

BEQ 

PUN6 

95A6 

1114 

ORA 

(ADR),Y ;PUNKT SETZEN 

95A8 

95AA 

5013 

BVC 

PUN6: 

PUNE 

95AA 

49FF 

EOR 

#^FF 

95AC 

3114 

AND 

(ADR),Y ;PUNKT LOESCHEN 

95AE 

95B0 

500D 

BVC 

PUN4; 

PUNE 

95B0 

48 

PHA 


95B1 

49FF 

EOR 

#^FF 

95B3 

3114 

AND 

(ADR),Y jBITPAAR LOESCHEN 
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95B5 

B5AB 

STA 

PBYTE 


95B7 

6B 

PLA 



95BB 

3DEB95 

AND 

PMASK, X 


95BB 

05AB 

□RA 

PBYTE 

;EVTL. BITS SETZEN 

95BD 


PUNE: 



95BD 

9114 

STA 

(ADR),Y 

;UND SPEICHERN 

95BF 

6B 

PLA 


;PROZESSORPÜRT 

95C0 

B501 

STA 

1 

;RESTAURIEREN 

95C2 

2B 

PLP 


;PROZ.STATUS RESTAU. 

95C3 

60 

RTS 


;ENDE PUNKT SETZEN 

95C4 


5 



95C4 


PUNKM: 


;PUNKT MULTI-CÜLOUR 

95C4 

A515 

LDA 

ADR+1 


95C6 

F003 

BEQ 

PUNKM1 

;PX < 256 

95CS 


PUNKMO: 


95CB 

4C1E95 

JMP 

PUNERR 

;FEHLER 

95CB 


PUNKM1 

. s 


95CB 

A514 

LDA 

ADR 


95CD 

C9A0 

CMP 

#160 


95CF 

B0F7 

BCS 

PUNKMO 

;PX > 159 

95D1 

2903 

AND 

#7.00000011 ;PX AND 3 

95D3 

AB 

TAY 



95D4 

B9E795 

LDA 

POSMASK 

,Y ;ENTSPR. BIT-MASKE 

95D7 

B5AB 

STA 

PBYTE 

;MERKEN (3*BX) 

95D9 

A514 

LDA 

ADR 

;PX AND »FC 

95DB 

29FC 

AND 

#7.11111100 

95DD 

OA 

ASL 

A 

; (PX AND »FO * 2 

95DE 

B514 

STA 

ADR 

;ALS NEUE X-KOORD. 

95E0 

9002 

BCC 

PUNKM2 


95E2 

E615 

INC 

ADR+1 


95E4 


PUNKM2: 


95E4 

4C5E95 

JMP 

PUN3 

; WEITER WIE OBEN 

95E7 


9 



95E7 


POSMASK: 


95E7 

CO 

BYT 

7.11000000 

95EB 

30 

BYT 

7.00110000 

95E9 

OC 

BYT 

7.00001100 

95EA 

03 

BYT 

7.00000011 

95EB 


PMASK: 



95EB 

00 

BYT 

7.00000000 

95EC 

55 

BYT 

7.01010101 

95ED 

AA 

BYT 

7.10101010 

95EE 

FF 

BYT 

7.11111111 

95EF 


i 




Beschreibung Das Label PUNERR wird angesprungen, wenn 
die Koordinaten nicht den Bedingungen ent¬ 
sprechen. Dort muß der Prozessor-Port auf 
die Standardwerte zurückgesetzt werden, da 
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sonst keine Fehlermeldung ausgegeben werden 
könnte. 

Vor dem eigentlichen Setzen des Punktes 
werden die Punktfarbe und die Koordinaten 
gelesen. Dann werden die Koordinaten auf 
Plausibilität geprüft und je nach Modus 
(Multi ja/ nein) verzweigt. Die Behandlung 
eines Punktes im normalen Modus geschieht 
zwischen den Labein FORTS und PUN3, die 
Behandlung des Multi-Color-Modus ab dem 
Label PUNKM. Im normalen Modus wird ledig¬ 
lich die Maske für das zu setzende Bit in 
PBYTE berechnet und in der X-Koordinate die 
letzten 3 Bit annulliert. Im Multi-Color- 
Modus folgt die Berechnung der Bitmaske 
durch Lesen aus einer Tabelle. Für beide 
Modes gemeinsam ist das Programmstück ab 
dem Label PUN3. Hier muß zunächst der alte 
Prozessorstatus (Interrupt-Flag) gesichert 
werden, anschließend wird das KERNAL aus¬ 
geschaltet. Dann wird die zu ändernde 
Speicherzelle berechnet und dort die Än¬ 
derungen je nach Punktfarbe verschieden 
vorgenommen. Am Schluß werden der Prozes¬ 
sor-Port und der Prozessor-Status 
restauriert. 


Name PFL 

Funktion Lies Punktfarbe 

Aufruf 3SR PFL 

Parameter Im Basic-Text folgt die Farbnummer 

(siehe PUNKT) 

Hilfsroutinen keine 

Adressbereich $95EF - $9604 = 38383 - 38404 


95EF 


PFL: 


PUNKTFARBE LESEN ** 

95EF 

2C5D94 

BIT 

MULTI 

;MULTI-MODUS 

95F2 

300A 

BMI 

PFLl 


95F4 

20BAAD 

JSR 

FRMNUM 

;WERT HOLEN 

95F7 

202BBC 

JSR 

FSGN 

;VORZEICHEN BESTIMMEN 

95FA 

8D5C94 

STA 

PFARBE 

;ALS FARBE SPEICHERN 

95FD 

60 

RTS 



95FE 


PFLl: 



95FE 

209EB7 

JSR 

GETBYT 

;WERT HOLEN 

9601 

aE5C94 

STX 

PFARBE 

;SPEICHERN 

9604 

60 

RTS 


;FERTIG 


9605 


9 
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Beschreibung Im normalen Modus wird lediglich das Vor¬ 
zeichen des Farbparameters als Punktfarbe 
gespeichert, im Multi-Modus wird die Farb- 
zahl mit GETBYT geholt. 


Name MULT 

Funktion Multipliziere 16-Bit-Wert mit 8-Bit-Wert 

Aufruf dSR MULT 

Parameter FAKIL, FAKIH = 1. Faktor 

FAK2 = 2. Faktor 

PRDL, PRDH = Produkt 

Flilfsroutinen keine 

Adressbere ich $9605 - $9628 = 38405 - 38440 


9605 


MULT: 



9605 

A900 

LDA 

#♦00 


9607 

8557 

STA 

PRDL 


9609 

8558 

STA 

PRDH 

;PRD = 0 

960B 

A008 

LDY 

#♦08 

; SCHLEIFENZAEHLER 

960D 

18 

CLC 



960E 


MULTI: 



960E 

265B 

RDL 

FAK2 


9610 

900D 

BCC 

MULT2 

;NICHTS ADDIEREN 

9612 

18 

CLC 



9613 

A557 

LDA 

PRDL 


9615 

6559 

ADC 

FAKIL 


9617 

8557 

STA 

PRDL 


9619 

A558 

LDA 

PRDH 


961B 

655A 

ADC 

FAKIH 


961D 

8558 

STA 

PRDH 

;PRD = PRD + FAKl 

961F 


MULT2: 



961F 

88 

DEY 



9620 

F006 

BEQ 

MULEND 

;8 BIT VERARBEITET 

9622 

2657 

ROL 

PRDL 


9624 

2658 

ROL 

PRDH 

;PRD VERDOPPELN 

9626 

90E6 

BCC 

MULTI 

;CARRY MUSS 0 SEIN 

9628 


MULEND: 


9628 

60 

RTS 


;ENDE UPRO MULT 

9629 





Be sehr e i bu ng 

Der 

Multiplikations-Algorithmus 


lehnt an das Verfahren, das man mit Blei¬ 
stift und Papier ausführt. Zunächst wird 
das Produkt annulliert, dann der zweite 
Faktor um ein Bit nach links verschoben, 
dann wird untersucht, ob zum Produkt der 
erste Faktor addiert werden muß, in jedem 
Fall aber das Produkt verdoppelt. Als Bit- 
Zähler dient das Y-Register. Eigentlich 
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benötigt das Ergebnis von einer 16-Bit mal 
8-Bit Multiplikation 24 Bit, jedoch sind 
bei unserer Aufgabenstellung die obersten 8 
Bit 0, so daß diese weggelassen werden. 


2.2.13.4 Textzeichen in Grafik 


Name 

Funktion 

Syntax 

Parameter 


HiIfsroutinen 
Adressbereich 


CHAR 

Positioniere Textzeichen in Grafik 
CHAR PF,PX,PY,BC oder 

SYS (37906) PF,PX,PY,BC 
PF = Punktfarbe (siehe PUNKT) 

PX = X-Koordinate 
PY = Y-Koordinate 
BC = Bildschirmcode des 
Zeichens: 

0 - 127 


zu druckenden 


normale Zeichen des Groß- 
schriftzeichensatzes 
128 - 255 : Revers-Zeichen des Groß¬ 
schriftzeichensatzes 
2 56 - 383 : normale Zeichen des Klein¬ 
schriftzeichensatzes 
384 - 511 : Revers-Zeichen des Klein- 
schriftzeichensatzes 


PUNKS,PFL 

PUNKS:$951E - $95EE 
CHAR :$9629 - $96A2 
PFL :$95EF - $9604 


38174 - 38302 
38441 - 38562 
38383 - 38404 


9629 


BITTAB 

: 

9629 

BO 

BYT 

■/. 10000000 

962A 

40 

BYT 

7.01000000 

962B 

20 

BYT 

7.00100000 

962C 

10 

BYT 

7.00010000 

962D 

OB 

BYT 

7.00001000 

962E 

04 

BYT 

7.00000100 

962F 

02 

BYT 

7.00000010 

9630 

01 

BYT 

7.00000001 

9631 


f 


9631 

00 

BITZAE 

: BYT 0 ;BIT-ZAEHLER 

9632 

00 

BYTEZAE: BYT 0;BYTE-ZAEHLER 

9633 


5 


9633 


CHAR: 

;*** CHAR-BEFEHL *** 

9633 

20EF95 

JSR 

PFL ;PUNKTFARBE LESEN 

9636 

20FDAE 

JSR 

CHKCOM ;KOMMA PRUEFEN 

9639 

20EBB7 

JSR 

GETAB ;KOORD. HOLEN 

963C 

B6A6 

STX 

AY ;Y-KOORD. 

963E 

A514 

LDA 

ADR ;X-KOORD. 
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9640 

B5A4 

STA 

AX 


9642 

A515 

LDA 

ADR+1 


9644 

85A5 

STA 

AX+1 


9646 

20FDAE 

JSR 

CHKCOM 

;KOMMA PRUEFEN 

9649 

20BAAD 

JSR 

FRMNUM 

;BS-CODE LESEN 

964C 

E661 

INC 

$61 


964E 

E661 

INC 

$61 


9650 

E661 

INC 

$61 

;MAL 8 (EXP. +3) 

9652 

20F7B7 

JSR 

FACADR 

;-> ADRESSFORMAT 

9655 

84FD 

STY 

Z 

;LOW-BYTE 

9657 

18 

CLC 



9658 

69D0 

ADC 

#$D0 

;$D000 ADDIEREN 

965A 

85FE 

STA 

Z + 1 

;HIGH-BYTE 

965C 


5 



965C 


CHARS; 



965C 

78 

SEI 



965D 

A501 

LDA 

1 

;PROZESSORPORT 

965F 

29FB 

AND 

#7.11111011; CHAREN=0 

9661 

8501 

STA 

1 


9663 

A907 

LDA 

#7 

5 

9665 

8D3296 

STA 

BYTEZAE 

;ZAEHLER AUF 7 

9668 


CHARS1 

; 


9668 

A907 

LDA 

#7 


966A 

8D3196 

STA 

BITZAE 

;BITZAEHLER AUF 7 

966D 


CHARS2: 


966D 

AE3196 

LDX 

BITZAE 

;BITNUMMER 

9670 

AC3296 

LDY 

BYTEZAE 

;BYTE-NUMMER (ZEILE) 

9673 

BIFD 

LDA 

(Z) ,Y 

;ZEICHEN AUS CHARGEN 

9675 

3D2996 

AND 

BITTAB,X 

;MASKE F. 1 BIT 

9678 

F017 

BEQ 

CHARS3 

;NICHTS TUN 

967A 

18 

CLC 



967B 

A5A4 

LDA 

AX 

;X-KOORD. BERECHNEN 

967D 

6D3196 

ADC 

BITZAE 

;XK = AX + BITZAE 

9680 

8514 

STA 

ADR 

;PARAMETER F. PUNKS 

9682 

A5A5 

LDA 

AX+1 

;HIGH-BYTE 

9684 

6900 

ADC 

#0 


9686 

8515 

STA 

ADR+1 


9688 

A5A6 

LDA 

AY 

;Y-KOORD. BERECHNEN 

968A 

6D3296 

ADC 

BYTEZAE 

;YK = AY + BYTEZAE 

968D 

AA 

TAX 


;PARAMETER F. PUNKS 

968E 

203095 

JSR 

PUNKS 

;PUNKT SETZEN 

9691 


CHARS3; 


9691 

CE3196 

DEC 

BITZAE 

;BITZAEHLER - 1 

9694 

10D7 

BPL 

CHARS2 

;SCHLEIFE 

9696 

CE3296 

DEC 

BYTEZAE 

;BYTEZAEHLER - 1 

9699 

lOCD 

BPL 

CHARS1 

;SCHLEIFE 

969B 

A501 

LDA 

1 

;PROZESSORPORT 

969D 

0904 

ORA 

#7.00000100; CHAREN=1 

969F 

8501 

STA 

1 

;RESTAURIEREN 

96A1 

58 

CLI 



96A2 

60 

RTS 


;ENDE CHAR 
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Beschreibung Ab dem Label CHAR werden zunächst die 
Punktfarbe und die Punktkoordinaten einge¬ 
lesen, dann mit FRMNUM der Bildschirmcode 
gelesen. Durch Erhöhung des Exponenten 
($61) um 3 erfolgt eine Multiplikation mit 
8, wonach das Ergebnis in Integer umgewan¬ 
delt und um $D000 vermehrt in die Zellen 
Z,Z+1 gespeichert wird. Damit sind die Pa¬ 
rameter für die Routine CHARS gesetzt, die 
auch vom Maschinenprogramm aus aufgerufen 
werden könnte. 

Zunächst werden die Interrupts verhindert 
und der Zeichengenerator lesbar geschaltet. 
Als Zeilenzähler dient die Zelle BYTEZAE, 
als Spaltenzähler BITZAE. Ist das ent¬ 
sprechende Bit im Zeichen nicht gesetzt, so 
wird ohne Aktion auf die nächste Punktposi¬ 
tion übergegangen. Im anderen fall werden 
die Parameter für die Routine PUNKS gesetzt 
und diese aufgerufen. 

Die beiden Schleifen werden erst beendet, 
wenn beide Zähler null sind; dann wird noch 
der Prozessorport auf den alten Wert 
gesetzt und Interrupts wieder ermöglicht. 


2.2.14 Funktionstasten programmieren 


Diese Routine wird - wie der Keyclick - vom Interrupt-Ma¬ 
nager aufgerufen. Die Routine ist ohne Interrupt-Manager 
verwendbar, wenn Sie den Interrupt-Vektor auf die unten 
abgebildete Routine stellen und das RTS am Ende durch ein 
JMP $EA31 ersetzen. Die Tabelle der Tasten-Be legungen be¬ 
findet sich im Bereich $C100 bis $C2EF. Wie Sie die Bele¬ 
gung nachträglich ändern und speichern können ist nachfol¬ 
gend in einem kleinen Basic-Programm gezeigt. Dieses Ba- 
sic-Programm können Sie auch verwenden, um die aktuelle 
Belegung der Punkt ionstasten festzustellen. 


Name 

Punktion 

Aktivierung 

Hilfsroutinen 


FTAST 

Funktionstasten abfragen; gegebenenfalls 
Befehlswort in Tastaturpuffer legen 
P0KE$C809, PEEK($C809) OR 4 
Interrupt-Manager (Kapitel 2.2.1.6) 
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Adressbereich FTAST:$C030 - $C09B 
FTAB :|C100 - |c2FF 


49200 - 49307 
43408 - 49919 


C030 


5 



C030 


FTAB 

=^C100 

;BELEGUNGEN AB ♦CI00 

C030 


5 



C030 


FTAST: 



C030 

A5D4 

LDA 

^:D4 

;"-FLAG 

C032 

D059 

BNE 

FTAST9 


C034 

BD8EC0 

STA 

FTNR 

;NUMMER ANNULLIEREN 

C037 

A6CB 

LDX 

$CB 

;GEDRUECKTE TASTE 

C039 

CA 

DEX 



C03A 

CA 

DEX 



C03B 

CA 

DEX 


;MINUS 3 

C03C 

E004 

CPX 

#4 

;TASTENCODE 

C03E 

B04B 

BCB 

FTASTB 

jGROESSER GLEICH 7 

C040 

BD90C0 

LDA 

FTASTTAB 

,X ;NUMMER VON F 

C043 

AEBD02 

LDX 

$02BD 

;FLAG SH.,C=,CTRL 

C046 

7D94C0 

ADC 

FSHTAB,X 

;SHIFT-WERT ADD. 

C049 

BDBECO 

STA 

FTNR 

;ERGEBNIS MERKEN 

C04C 


5 



C04C 

A5CC 

LDA 

$CC 

;BLINKT CURSOR 

C04E 

D03D 

BNE 

FTAST9 

;NEIN 

C050 

A5CB 

LDA 

♦CB 

;GEDR. TASTE 

C052 

CDBFCO 

CMP 

FTALT 

;ALTE GEDR. TASTE 

C055 

F036 

BEQ 

FTAST9 

;GLEICH 

C057 

A5DB 

LDA 

♦DB 

;INSERT-MODUS 

C059 

D02D 

BNE 

FTASTB 

; JA 

C05B 


f 



C05B 

A5FE 

LDA 

♦FE 

;HILFSZEIGER 

C05D 

4B 

PHA 


;RETTEN 

C05E 

A5FD 

LDA 

♦FD 


C060 

4B 

PHA 



C061 

AEBECO 

LDX 

FTNR 

;NUMMER VON FUNKTION 

C064 

CA 

DEX 


;EINS ABZIEHEN 

C065 

BA 

TXA 



C066 

OA 

ASL 

A 


C067 

OA 

ASL 

A 


C06B 

OA 

ASL 

A 

;MAL 16 

C069 

OA 

ASL 

A 


C06A 

B5FD 

STA 

♦FD 

;LOW-BYTE ZEIGER 

C06C 

A9C1 

LDA 

#>FTAB 

;HIGH-BYTE FTAB 

C06E 

6900 

ADC 

#0 

;CARRY ADDIEREN 

C070 

B5FE 

STA 

♦FE 

;ZEIGER AUF STRING 

C072 

AOOO 

LDY 

#0 

;ZEICHENZAEHLER 

C074 


FTAST4: 


C074 

BIFD 

LDA 

(♦FD),Y 

;BELEGUNG 

C076 

FOOB 

BEQ 

FTAST6 

;TRENNZEICHEN 
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C07B 

997702 

STA ^0277, 

Y ;TASTATURPUFFER 

C07B 

CB 

INY 


C07C 

COOF 

CPY #15 

;MAX. 15 ZEICHEN 

C07E 

90F4 

BCC FTAST4 

;SCHLEIFE 

COBO 


FTAST6: 


COBO 

B4C6 

STY ^C6 

;ANZ. ZEI. IM TASTPUFF 

C0B2 


FTAST7: 


C0B2 

6B 

PLA 


C0B3 

B5FD 

STA ^FD 

;HILSZELLEN 

C0B5 

6B 

PLA 

; RESTAURIEREN 

C0B6 

B5FE 

STA ^FE 


COBB 


FTASTB: 


COBB 

A5CB 

LDA ^CB 

;GEDR. TASTE 

COBA 

BDBFCO 

STA FTALT 

;ALTE TASTE 

COBD 


FTAST9: 


COBD 

60 

RTS 

; FERTIG 

COBE 


5 


COBE 

00 

FTNR; BYT 

0 ;NUMMER VON F-TASTE 

COBF 

40 

FTALT; BYT 

64;ALTE GEDR. TASTE 

C090 


FTASTTAB; 


C090 

07 

BYT 7 

;F7 

C091 

01 

BYT 1 

;Fi 

C092 

03 

BYT 3 

;F3 

C093 

05 

BYT 5 

;F5 

C094 


FSHTAB; 


C094 

00 

BYT 0 

;NICHTS <SH.,C=,CTRL) 

C095 

01 

BYT 1 

;SHIFT 

C096 

OB 

BYT B 

;c= 

C097 

09 

BYT 9 

;SHIFT & C= 

C09B 

10 

BYT 16 

;CTRL 

C099 

11 

BYT 17 

;CTRL & SHIFT 

C09A 

IB 

BYT 24 

;CTRL & C= 

C09B 

19 

BYT 25 

;CTRL & C= & SHIFT 

C09C 


f 


COFF 

00 

7.DUP FTAB- 

BYT 0 

ClOO 


5 

*** HIER FTAB *** 

ClOl 

495354 

7.ASC "LIST 

II 

C104 

OD 

BYT 13 

;RETURN 

ClOF 

00 

7.DUP «:C110 

-^,BYT 0 

Clio 


j 


C119 

3A4CC9 

7.ASC "0^4, 

4:C«4:L7" 

CllC 

OD 

BYT 13 

;RETURN 

CllF 

00 

7.DUP ^C120 

-:$,BYT 0 

C120 


5 


C120 

52554E 

7.ASC "RUN" 


C123 

OD 

BYT 13 

;RETURN 

C12F 

00 

7.DUP *C130 

-^,BYT 0 

C130 


5 


C137 

534534 

7.ASC "P/?4: 

CL0SE4" 

C13A 

OD 

BYT 13 

;RETURN 
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C13F 

00 

C140 


C141 

4F4E54 

C144 

OD 

C14F 

00 

C150 


C15A 

35333B 

C15D 

OD 

C15F 

00 

C160 


C160 

OB 

C161 

OE 

C16F 

00 

C170 


C170 

OB 

C171 

BE 

C17F 

00 

CIBO 


ClBl 

4F4144 

C1B4 

22 

C1B5 

22 

C1B6 

14 

CIBF 

00 

C190 


C197 

3B302C 

C19F 

00 

CIAO 


CIAO 

22 

ClAl 

2C3B 

C1A3 

OD 

ClAF 

00 

CIBO 


C1B7 

3B312C 

CIBF 

00 

CICO 


ClCl 

415645 

C1C4 

22 

C1C5 

22 

C1C6 

14 

CICF 

00 

CIDO 


C1D3 

494659 

C1D6 

22 

C1D7 

22 

CIDB 

14 

CIDF 

00 

ClEO 


ClEl 

415645 

C1E4 

22 

C1E5 

22 


•/.DUP $C 140-$,BYT 0 

•/.ASC "CONT" 

BYT 13 ;RETURN 

7.DUP $C 150-$,BYT 0 

•/.ABC " ?FRE (0) +6553B " 

BYT 13 ;RETURN 

7.DUP $C 160-$,BYT 0 

BYT B ;SHIFT/C= SPERREN 

BYT 14 ;KLEINSCHRIFT 

•/.DUP $C 170-$,BYT 0 


BYT B ;SHIFT/C= SPERREN 

BYT 142 ;GROSSCHRIFT 

•/.DUP $C1B0-$,BYT 0 

•/.ASC "LOAD" 

BYT 34 ; " 

BYT 34 ;2. HOCHKOMMA 

BYT 20 ;DELETE 

•/.DUP $C 190-$,BYT 0 

•/.ASC "P0KE532B0," 

•/.DUP $C1A0-$,BYT 0 


BYT 34 ; " 

•/.ASC ",B" 

BYT 13 ;RETURN 

•/.DUP $C1B0-$,BYT 0 

•/.ASC "P0KE532B1," 
•/.DUP $C1C0-$,BYT 0 


•/.ASC "SAVE" 

BYT 34 ; " 

BYT 34 ;2. HOCHKOMMA 

BYT 20 ;DELETE 

•/.DUP $C1D0-$,BYT 0 


•/.ASC "VERIFY" 

BYT 34 ;" 

BYT 34 ;2. HOCHKOMMA 

BYT 20 ;DELETE 

•/.DUP $C1E0-$,BYT 0 


•/.ASC "SAVE" 

BYT 34 ; " 

BYT 34 ;2. HOCHKOMMA 
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C1E6 

14 

BYT 20 ;DELETE 

C1E7 

403A 

■/.ABC 

■lg. ■■ 

CIEF 

00 

7.DUP 

$C1F0-*,BYT 0 

CIFO 


S 


C1F3 

494659 

7.ASC 

"VERIFY" 

C1F6 

OD 

BYT 

13 ;RETURN 

CIFF 

00 

7.DUP 

♦C200-:^,BYT 0 

C200 


S 


C205 

323030 

7.ASC 

"SYS51200" 

C20B 

OD 

BYT 

13 ;RETURN 

C20F 

00 

7.DUP 

♦C210-$,BYT 0 

C210 


5 


C215 

313532 

7.ASC 

"SYS49152" 

C218 

OD 

BYT 

13 ;RETURN 

C21F 

00 

7.DUP 

♦C220-:$,BYT 0 

C220 


S 


C221 

49534B 

7.ASC 

"DISK" 

C224 

OD 

BYT 

13 ;RETURN 

C22F 

00 

7.DUP 

*C230-*,BYT 0 

C230 


S 


C231 

494557 

7.ASC 

"VIEW" 

C234 

22 

BYT 

34 ; " 

C235 

24 

7.ASC 


C236 

22 

BYT 

34 ; " 

C237 

2C3B 

7.ASC 

",B" 

C239 

OD 

BYT 

13 ;RETURN 

C23F 

00 

7.DUP 

♦C240-:^,BYT 0 

C240 


5 


C242 

44302C 

7.ASC 

"LADO," 

C245 

22 

BYT 

34 ; " 

C246 

4532 

7.ASC 

"E2" 

C24S 

22 

BYT 

34 ; " 

C24A 

3B2C31 

7.ASC 

",B,1" 

C24D 

OD 

BYT 

13 ;RETURN 

C24F 

00 

7.DUP 

^C250-:$,BYT 0 

C250 


S 


C257 

30392C 

7.ASC 

"P0KE^C809," 

C25F 

00 

7.DUP 

^C260-:$,BYT 0 

C260 


5 


C260 

463233 

7.ASC 

"F23" 

C26F 

00 

7.DUP 

♦C270-:$,BYT 0 

C270 


5 


C270 

463234 

7.ASC 

"F24" 

C27F 

00 

7.DUP 

♦C2B0-$,BYT 0 

c 2 eo 


5 


c 2 eo 

463235 

7.ASC 

"F25" 

C2eF 

00 

7.DUP 

»C290-:^,BYT 0 

C290 


f 


C290 

463236 

7.ASC 

"F26" 

C29F 

00 

7.DUP 

♦C2A0-:$,BYT 0 
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C2A0 


5 



C2A0 

463237 

7.ASC 

"F27" 


C2AF 

C2B0 

00 

7.DUP 

♦C2B0-»,BYT 

0 

C2B0 

46323B 

7.ASC 

"F2B" 


C2BF 

C2C0 

00 

7.DUP 

5 

♦C2C0-$,BYT 

0 

C2C0 

463239 

■/.ABC 

"F29" 


C2CF 

C2D0 

00 

7.DUP 

S 

♦C2D0-$,BYT 

0 

C2D0 

463330 

7.ASC 

"F30" 


C2DF 

C2E0 

00 

7.DUP 

S 

♦C2E0-:^,BYT 

0 

C2E0 

463331 

7.ASC 

"F31" 


C2EF 

C2F0 

00 

7.DUP 

i 

♦C2F0-»,BYT 

0 

C2F0 

463332 

7.ASC 

"F32" 


C2FF 

C300 

00 

7.DUP 

9 

♦C300-*,BYT 

0 


Beschreibung ist der Hochkomma-Modus aktiv, so ist die 
Auswertung von Funktionstasten nicht sinn¬ 
voll; deshalb wird in diesem Fall sofort 
die Routine beendet. Im anderen Fall wird 
die Nummer der Funktionstaste aus dem Ta¬ 
stencode und den Flags für die Tasten 
SHIFT, C= und CTRL gebildet. Im Anschluß an 
diese Beschreibung finden Sie eine Tabelle, 
die die Zuordnung zwischen Funktionstasten- 
Nummer und gedrückten Tasten deutlich 
macht. Die Umwandlung der Funktionstaste in 
ein Wort ist weiterhin nur sinnvoll, wenn 
der Cursor gerade blinkt und die alte ge¬ 
drückte Taste sich von der neuen unter- 
scheidet. 

Ist eine der Bedingungen nicht erfüllt, 
wird zum Ende des Unterprogramms verzweigt. 
Im anderen Fall werden die Hilfsregister 
$FD, $FE gerettet und ein Zeiger auf das 
entsprechende Wort gesetzt. Danach werden 
bis zu 15 Zeichen in den Tastaturpuffer 
übertragen. Zur Beachtung: Da der Tastatur¬ 
puffer eigentlich nur 10 Zeichen lang ist. 
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werden die folgenden 4 bis 5 Byte geändert, 
wenn lange Zeichenreihen zur Funktionsta¬ 
stenbelegung verwendet werden. Für Basic 
ist dies allerdings ohne Belang. 


Hier nun die Tabelle mit den Standardbelegungen der Funk¬ 
tionstasten und der Zuordnung der Funktionstastennummer zu 
den gedrückten Tasten: 


SHIFT 

c= 

CTRL 

Taste 

Nr 

Belegung 




Fl 

Fl 

LIST (RETURN) 

X 



Fl 

F2 

0PEN4,4:CMDl:LIST (RETURN) 




F3 

. F3 

RUN (RETURN) 

X 



F3 

F4 

PRINT#4:CL0SE4 (RETURN) 




F5 

F5 

CONT (RETURN) 

X 



F5 

F6 

PRINT FRE(0)+65538 (RETURN) 




F7 

F7 

CHR$(8)+CHR$(14) 

X 



F7 

F8 

CHR$(8)+CHR$(14) 


X 


Fl 

F9 

LOAD" 

X 

X 


Fl 

FlO 

POKE 53280, 


X 


F3 

Fll 

■ ,8 

X 

X 


F3 

F12 

POKE 53281, 


X 


F5 

F13 

SAVE" 

X 

X 


F5 

F14 

VERIFY" 


X 


F7 

F15 

SAVE"(Klammeraffe): 

X 

X 


F7 

F16 

VERIFY 



X 

Fl 

F17 

SYS 51200 

X 


X 

Fl 

F18 

SYS 49152 



X 

F3 

F19 

DISK 

X 


X 

F3 

F20 

VIEW"$",8 



X 

F5 

F21 

LADO,"E2",8,1 

X 


X 

F5 

F22 

P0KE$C809, 



X 

F7 

F23 

- 

X 


X 

F7 

F24 

- 


X 

X 

Fl 

F25 

- 

X 

X 

X 

Fl 

F26 

- 


X 

X 

F3 

F27 

- 

X 

X 

X 

F3 

F28 

- 


X 

X 

F5 

F29 

- 

X 

X 

X 

F5 

F30 

- 


X 

X 

F7 

F31 

- 

X 

X 

X 

F7 

F32 

- 


An der 'normalen' Belegung der Tasten (Nummern mit und 
ohne SHIFT) wurde nichts verändert. Für die weitere 
Numerierung wurde auf ein einfaches Merkschema geachtet: 
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F 1 

- F 8 

Normal 


FlO 

- F16 

Normal + 

C= 

F17 

- F24 

Normal + 

CTRL 

F25 

- F32 

Normal + 

C= + CTRL 

ku rze 

Erläuterung 

zu den 

ve rwe ndeten 


F 1 - F 6 
F 7 - F 8 
F 9 - F16 
F17 - F22 


F23 - F32 


häufig benötigte Befehle 
umschalten Groß/Kleinschrift 
laden, speichern, Farben setzen 
Basic-Erweiterungen 

F17 : Basic-Erwe iterungen einschalten 

F18 : Testen von eigenen Programmen 

F19 : Disk-Status anzeigen 

F20 : Directory auf Bildschirm zeigen 

F21 ; zweiten teil der Erweiterungen laden 

F22 : Maske des Interrupt-Managers setzen 

frei für Ihre Zwecke 


Zum Abschluß zeigen wir Ihnen noch das Basic-Programm, mit 
dem Sie die momentane Funktionstastenbelegung feststellen 
können und gegebenenfalls Änderungen durchführen können. 
Sie können danach die Änderungen zusammen mit den Basic- 
Erwe iterungen, die ab $C000 liegen gleich als Datei spei¬ 
chern. 


100 

FOR N=1 TD 32 

<031> 

110 

PRINT"F";N,CHR*(34); 

<000> 

120 

FOR 1=0 TO 14 

<045> 

130 

A=PEEK(4940B+(N-1)*16+I) 

<1BB> 

140 

IF A=0 THEN 170 

<121> 

150 

PRINT CHR^(A); 

<195> 

160 

NEXT I 

<107> 

170 

PRINT 

<067> 

IBO 

NEXT N 

<132> 

210 

N=0;INPUT"NEUE BELEGUNG FUER NR. ";N 

<004> 

220 

IF N=0 THEN 500 

<211> 

230 

PRINT" (RETURN = <-) ? "; 

<010> 

240 

GDSUB 1000 

<062> 

250 

PRINT 

<147> 

260 

IF LEN(A«)>15 THEN 230 

<092> 

270 

A«=A*+CHR*(0) 

<125> 

2B0 

FOR 1=1 TO LEN(A^) 

<227> 

290 

B=ASC(MID«(A^,1,1)) 

<12B> 

300 

IF B=ASC ("«-") THEN B=13 

<101> 

310 

POKE 4940B+16*(N-1)+I-1,B 

<076> 

320 

NEXT 

<195> 

330 

GOTO 210 

<103> 
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500 A*="" <0B0> 
510 INPUT"DATEINAME";A» <240> 
520 SPEI$C000,»CC00,A^,B <093> 
590 END <20B> 
1000 A*="" <070> 
1010 SYS 654B7 :REM $FFCF (CHRIN) <104> 
1020 IF PEEK(7B0)=13 THEN RETURN <135> 
1030 A*=A»+CHR*(PEEK(7B0)) < 250 > 
1040 GOTD 1010 <095> 


Beschreibung des Basic-Programmes 

Zur Eingabe der Änderung am Bildschirm kann der normale 
INPUT-Befehl nicht verwendet werden, da die Verwendung von 
Anführungszeichen, Komma und Doppelpunkt problematisch 
ist. Statt dessen wird die KERNAL-Routine CHRIN aufgeru¬ 
fen, mit der man diese Einschränkungen umgehen kann. Wie 
Sie den SPEI-Befehl durch normale Basic-Befehle ersetzen 
können finden. Sie in Kapitel 4. 


Anleitung zur Verwendung des Programmes 

Nach dem Starten des Programmes zeigt Ihnen der Rechner 
die momentane Belegung der Funktionstasten am Bildschirm 
an. Danach fragt er nach der zu ändernden Belegung (Ta¬ 
stennummer 1-32). Geben Sie '0' ein, fragt der Rechner 
nach der Datei, in der der Bereich zwischen $C000 und 
$CBFF gespeichert werden soll. Möglich ist z.B. die 
Eingabe: 

■(K1ammeraffe):El" (mit Anführungszeichen eingeben) 

Geben Sie eine Nummer zwischen 1 und 32 ein, können Sie 
die neue Belegung (direkt) eingeben, wobei ein 'Pfeil nach 
links’ als RETURN-Taste in den Kommando-String mitaufge- 
nommen wird. 


2.2.15 Komfortable Tonerzeugung 


Daß der Commodore 64 einen professionellen Synthesizer mit 
überragenden Fähigkeiten integriert hat, wird wohl niemand 
abstreiten wollen. Mit dem folgenden Programm lassen sich 
alle drei Tongeneratoren beeinflussen. Dabei können sogar 
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Filter eingesetzt werden. Ebenso wie die Verwendung der 
anderen Eigenschaften des Commodore 64 (Sprites, Grafik), 
ist auch der Einsatz der Tongeneratoren anwendungsabhängig 
und kein Thema für ein Nachschlagewerk. Trotzdem wollen 
wir Ihnen hier ein kleines Hilfsprogramm als Ergänzung 
vorstellen, das in Form eines Basic-Loaders vorliegt. 

Das Programm ist mit den anderen Basic-Erweiterungen 
kompatibel, sofern Sie die Eunktionstastenbelegung und den 
Key-Click nicht verwenden. Die Erweiterungen können Sie 
durch jeweiliges Aufrufen von SYS 51200 bzw. SYS 49152 an¬ 
sprechen. 


Bedienungsanleitung 

Was wäre der C-64 ohne Tongeneratoren? Wahrscheinlich das¬ 
selbe wie ein Schotte ohne Dudelsack! Doch was nützt der 
beste Tongenerator, wenn dieser nur umständlich ansprech¬ 
bar ist? Um beim Commodore 64 einen einfachen Ton zu er¬ 
zeugen, müssen mehrere Register (Speicherste 1 len) be¬ 
schrieben ('gePOKEd') werden. Sollen zusätzlich weitere 
Stimmen eingesetzt werden, die eventuell sogar mit Eiltern 
beeinflußt werden sollen, wird das Basic-Programm länger 
und unübersichtlicher. Abhilfe kann hier eine Befehlser¬ 
weiterung schaffen, die mit wenig Befehlen möglichst viele 
Register auf einmal verändert. Wenn Sie dieses Programm 
(hoffentlich) fehlerlos eingetippt haben, stehen Ihnen 
sechs weitere Befehle zur Verfügung. Der Interpreter er¬ 
kennt diese Befehle an einem vorangestellten Punkt. 

Es stehen Ihnen folgende Befehle zur Verfügung: 


•W ST,WE,(TAh,TAl) ,A,D,S,R 

Dabei ist .W der Befehl, ST ist die Stimme (1-3) und WE 
die Wellenform (16=Dreieck, 32=Sägezahn, 64=Puls/Rechteck, 
128=Rauschen). Haben Sie Puls als Wellenform gewählt, so 
folgt nach WE das Tastenverhältnis high (TAh) und low 
(TAI). Die nächsten vier Parameter (A-Attack, D-Decay, S- 
Sustain, R-Release) nehmen Werte zwischen 0 und 15 an. 


A gibt die Zeit an, die benötigt wird, bis die volle 
Lautstärke erreicht wird (0-6 msec., 15-24 sec.). 

D ist die Zeit, die benötigt wird, bis die Lautstärke 
auf den Sustain-Level zurückfällt. 
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S ist die Lautstärke, die der Ton hält, bis das Key- 
Bit gelöscht ist. 

R gibt die Zeit an, die benötigt wird, bis der Ton 
auf die Lautstärke Null absinkt, nachdem das Key¬ 
bit gelöscht wurde (0-6 msec., 15-24 sec.) 


Diese vier Buchstaben bestimmen zusammen die Hüllkurve, 
die die Lautstärke beeinflußt, während der Ton gespielt 
wird. In' Abbildung 1 ist dies zum besseren Verständnis 
nochmals schematisch dargestellt. 


Hüllkurvenverlauf eines Tones: 



Bild 2.2.15-1 : 
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.S ST,K,Fh,Fl 

Mit diesem Befehl lassen sich die Tonhöhen ändern. ST ist 
wie immer der Tongenerator, dessen Frequenz verändert 
werden soll (Stimme). 

K hat mehrere Funktionen 

ist K=l, so wird das Keybit gesetzt, d.h. der Ton be¬ 
ginnt zu erklingen. Dabei wird seine Lautstärke durch 
die Hüllkurve bestimmt (A,D,S,R). Sobald F=0 ist, das 
Keybit also gelöscht ist, beginnt der Ton in der Zeit 
R (siehe Befehl .W) auszuklingen. Dieser Vorgang ist 
mit dem Anschlägen einer Klaviertaste vergleichbar. 

ist K=2, so wird die Stimme mit der vorgehenden syn¬ 
chronisiert (ST 1 mit ST 3) 

ist K=4, so wird die Stimme mit der vorgehenden ring¬ 
moduliert (Summe und Differenz der Frequenzen) 

Wollen Sie die Funktionen miteinander kombinieren, so 
addieren Sie einfach die entsprechenden Werte. (z.B. 7=1 
(Keybit) + 2 (Synchr.) + 4 (Ringm.) ). 

Fh nimmt wie Fl einen Wert zwischen 0 und 255 an. Mit die¬ 
sen zwei Werten läßt sich die Frequenz ändern. Dabei ist 
Fh für die Grobeinstellung und Fl für die Feineinstellung 
der Frequenz zuständig (die Frequenzen finden Sie im An¬ 
hang). 


.F ST,FA,Fh,Fl,RE 

Mit Hilfe dieses schönen Befehls können Sie die Stimme 1, 
2, 3 (ST=1,2,4), plus eine externe Stimme (ST=8), durch 
einen Filter beeinflussen; sollen mehrere Stimmen über den 
Filter geleitet werden, so addieren Sie einfach die ent¬ 
sprechenden Werte. 

Mit FA wird die Filterart festgelegt (FA=16 Tiefpass, 
FA=32 Bandpass, FA=64 Hochpass). Auch hier können Sie die 
Filterarten kombinieren, indem Sie die Werte addieren. 

Mittels Fh (0-255) und Fl (0-7) wird die Filterfrequenz 
festgelegt. Die Filterfrequenz können Sie folgendermaßen 
errechnen : 

F = (30 + W * 5.8) Hz bzw. W = (F - 30) / 5.8 
W bedeutet hierbei die 11-Bit Zahl (Fh,Fl). 
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1024 

51 2 

256 

128 

64 

32 

1 6 

8 

B 

2 1 

1 

Fh 1 

Fl 

1 28 

64 

32 

1 6 

8 

■i 

2 

1 

4 

2 

1 


Bild 2.2.15-2 ; Berechnung der 11-Bit-Zahl W 

Zerlegen Sie F in eine Binärzahl. Addieren 
Sie nun die Werte in der unteren Zeile, 
bei denen ein Bit gesetzt ist. 


RE ist die Resonanzfrequenz (0=gering, 15=hoch). Sie wird 
verwendet, um bestimmte Abschnitte des Frequenzspektrums 
hervorzuheben. 


.V LS 

Diesen Befehl benötigen Sie zur Lautstärkeeinste 1 lung. 
(LS=0 stumm, LS=15 volle Lautstärke) 


.0 ST 

Mit diesem Befehl (Buchstabe 0, nicht null) lassen sich 
die Stimmen 1 bis 3 (ST=1,2,3) ausschalten. 


.P t 

Wählen Sie diesen Befehl, so macht der Computer eine 
Zeitschleife von t/10 Sekunden. 

Alle Befehle können Sie im Programm wie auch im Direkt¬ 
modus verwenden. Selbstverständlich können die Parameter 
durch Variablen ersetzt werden. 


10 FOR T=0 TO 317:READ A 

11 F'GKE 49152+T, A: S=S+A 

12 NEXT 

13 IF S039382 THEN PRINT" CCLRIFEHLER IN DATAS !": 
END 

14 PRINT"tCLRlG.K.SYS 49152 

17 DATA 169,11,141,8,3,169,192,141 

18 DATA 9,3,96,32,115,0,201,46 


< 002 > 

< 143> 

< 142> 

<004> 
<081 > 

< 157> 
<205> 
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19 DATA 240,3,76,231,167,32,115,0 

20 DATA 201,87,208,3,76,69,192,201 

21 DATA 86,208,3,76,126,192,201,83 

22 DATA 208,3,76,175,192,201,70,208 

23 DATA 3,76,211,192,201,79,208,3 

24 DATA 76,161,192,201,80,208,3,76 

25 DATA 137,192,76,231,167,32,26,193 

26 DATA 32,252,192,32,34,193,164,255 

27 DATA 153,246,0,201,64,208,14,32 

28 DATA 34,193,166,250,157,3,212,32 

29 DATA 34,193,157,2,212,32,42,193 

30 DATA 230,250,32,42,193,198,250,136 

31 DATA 169,0,153,4,212,185,247,0 

32 DATA 153,4,212,76,174,167,32,26 

33 DATA 193,141,24,212,133,253,76,174 

34 DATA 167,32,26,193,160,100,169,83 

35 DATA 133,250,198,250,165,250,208,250 

36 DATA 136,208,243,202,208,238,76,174 

37 DATA 167,32,26,193,32,252,192,169 

38 DATA 0,153,4,212,76,174,167,32 

39 DATA 26,193,32,252,192,32,34,193 

40 DATA 164,255,89,246,0,164,250,153 

41 DATA 4,212,32,34,193,164,250,153 

42 DATA 1,212,32,34,193,153,0,212 

43 DATA 76,174,167,32,26,193,138,133 

44 DATA 250,32,34,193,69,253,141,24 

45 DATA 212,32,34,193,141,22,212,32 

46 DATA 34,193,141,21,212,32,34,193 

47 DATA 10,10,10,10,69,250,141,23 

48 DATA 212,76,174,167,134,255,224,1 

49 DATA 208,5,160,0,132,250,96,224 

50 DATA 2,208,5,160,7,132,250,96 

51 DATA 224,3,208,5,160,14,132,250 

52 DATA 96,96,32,115,0,32,158,183 

53 DATA 138,96,32,253,174,32,158,183 

54 DATA 138,96,32,34,193,10,10,10 

55 DATA 10,133,251,32,34,193,69,251 

56 DATA 164,250,153,5,212,96 


<096> 

<165> 

< 167> 

< 110 > 
<165> 
<018> 
< 011 > 

< 152> 
<213> 

< 164 > 

< 060 > 

< 115> 
<141 > 
<064> 
<020 > 

< 165> 

< 124> 
<030> 

< 123> 
<230> 
<030> 

< 1 10 > 
<038> 

'T* *'• 

<214> 

< 224 < 

< 107> 
<032> 

< 178> 
<084> 

< 173> 

< 148> 
<049> 

< 132> 
<238> 

< 155> 


Das folgende Programm zeigt eine Demonstration für die 
Befehlserweiterung, bei der alle Befehle verwendet werden. 

10 .V15 :REM LAUTST. =15 <107> 

12 .W1,128,11,12,2,7:REM WELLENF. +HUELLKURVE STl <117> 

14 .W2,16,04,07,2,4 :REM WELLENF. +HUELLKURVE ST2 <072> 

16 A=INT(RND(1)*130):IF AClOO THEN 16:REM ZUFALLSTON 

HOEHE D. WELLE <013> 
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18 B=INT(RND(1)*050):IF B<020 THEN 18:REM ZUFALLSTDN 


LAENGE D. WELLE <088> 
20 .F3,16+64,230,7,10:REM FILTER TP+HP+RESONANZ <164> 
22 .81,1,A,100:GQSUB 30:REM EVENT. MGEWE < 111 > 
24 .PB :GQSUB 30:REM EVENT. MQEWE <248> 
26 .S1,0,A,100:GQSUB 30:REM EVENT. MQEWE <114> 
28 GOTO 16 <012> 
30 C=INT(RND(1)*4):QN C GQTQ 32,36,36 <092> 
32 RETURN <142> 
34 REM**** MQEWE **** <126> 
36 FQR T=90 TQ 70 STEP-1 <164> 
38 .S2,1,T,100:REM AENDERN DER TQNHQEHE <110> 
40 NEXT T <254> 
42 .S2,0,85,100:REM TQN AUSKLINGEN <05S> 
44 RETURN <186> 
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3. Ports 


Der Commodore 64 hat zum Anschluß externer Geräte sowie 
zum Experimentieren sechs verschiedene Anschlußmöglich¬ 
keiten, die wir nacheinander in den folgenden Kapiteln 
besprechen wollen. Es ist jeweils eine Skizze mit den An¬ 
schlußbelegungen angegeben, anschließend ist eine Liste 
aufgeführt, aus der Sie entnehmen können, welche Leitungen 
des Anschlusses mit welchen Anschlüssen im Computer ver¬ 
bunden sind. 

Angegeben ist jeweils noch der Typ des Anschlusses, wobei 
in Frage kommen: 


dE = digitaler Eingang 
dA = digitaler Ausgang 
aA = analoger Ausgang 
aE = analoger Eingang 
SV = Stromversorgung 


Oft können die Anschlüsse sowohl als Eingang als auch als 
Ausgang programmiert werden; die Datenrichtung, die nicht 
standardmäßig vorgesehen ist, ist in Klammern angegeben. 

Zu bemerken ist, daß ein digitaler Eingang als logisch 1 
gelesen wird, wenn der Anschluß offen ist. 

Wollen Sie mit diesen Anschlüssen experimentieren, müssen 
Sie einen entsprechenden Steckkontakt im Fachhandel erwer¬ 
ben. Auf diesen Steckkontakten finden Sie dann die glei¬ 
chen Nummern wie hier angegeben. Wenn nicht besonders an¬ 
gegeben, gelten folgende elektrische Belastungsgrenzen für 
die Anschlüsse: Digitale Eingänge vertragen eine Spannung 
von -0,5 Volt bis +5,5 Volt. Digitale Ausgänge vertragen 
eine Standard-TTL-Last, d.h. Sie schalten am besten zur 
Sicherung Ihres Computers einen Treiberbaustein zwischen 
den Anschluß und Ihre Schaltung. Ein Treiberbaustein für 
sechs Leitungen kostet zur Zeit unter einer Mark und ist 
doch wesentlich billiger zu ersetzen als ein hochinte¬ 
grierter Baustein im Rechner. 
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3.1 User-Port 


Die hardwaremäßig am leichtesten zu handhabende Schnitt¬ 
stelle ist der User-Port. Wir wollen Ihnen im folgenden 
Kapitel zeigen, was man damit anfangen kann. Die meisten 
Leitungen am User-Port sind mit dem im 64er verwendeten 
Ein-/ Ausgabebaustein 6526 verbunden, der im Kapitel 5.1.5 
besprochen wird. Wir zeigen hier, wie die Anschlüsse ver¬ 
bunden sind. 


Anschlußbelegung des Userports 

1 2 3 4 5 6 7 8 9 10 11 12 


ABCDEFHJKLMN 
Abbildung 3.1-1 (Steckeranschluß) 


Bild 3.1-1 : Steckeranschluß des User-Ports 


Mechanisch 
Kontakten 
völlig ana 
Rechner, 
Masse, und 
Geräte, so 
erfüllen. 


ist der Userport als 
realisiert. Die unteren 


Direktstecker mit 24 
zwölf Anschlüsse sind 


log zu den Anschlüssen der 
z.B. Commodore 3032. Vier 
drei Anschlüsse dienen zur 
daß nur noch 17 Anschlüsse 
Die Anschlüsse im einzelnen: 


anderen Commodore- 
Anschlüsse führen 
Versorgung externer 
digitale Funktionen 


Pin Bezeichnung Funktion 


Typ 


1 GND 

2 +5V 

3 RESET 

4 CNTl 

5 SPl 

6 CNT2 

7 SP2 


Masse SV 

Stromversorgung für SV 

externe Geräte (100 mA) 
entsprechende Leitung des dA/dE 

des Prozessors 

CNT-Anschluß des CIAl dE/dA 

SP -Anschluß des CIAl dA/dE 

CNT-Anschluß des CIA2 dE/dA 

SP-Anschluß des CIA2 dA/dE 
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8 PC2 PC-Anschluß des CIA2 dA 

(geht für einen Takt auf 
Low, wenn ein Schreib- oder 
Lesezugriff auf das Portre¬ 
gister B ausgeführt wurde) 


9 

ATN 

ATN des 

seriellen Bus 

dA 

10 

9 V AC 

Wechsels trom 

f. 

externe Geräte 

SV 

11 

9 V AC 

WechseIstrom 

f. 

externe Geräte 

SV 

12 

GND 

Masse 






SV 

A 

GND 

Masse 






SV 

B 

FLAG2 

FLAG-Anschluß 

des CIA2 

dE 

C 

PBO 

Por t B 

Bit 

0 

von 

CIA 

2 

dE(dA) 

D 

PBl 

Port B 

Bit 

1 

von 

CIA 

2 

dE(dA) 

E 

PB2 

Port B 

Bit 

2 

von 

CIA 

2 

dE(dA) 

E 

PB3 

Port B 

Bit 

3 

von 

CIA 

2 

dE(dA) 

H 

PB4 

Por t B 

Bit 

4 

von 

CIA 

2 

dE(dA) 

J 

PB5 

Port B 

Bit 

5 

von 

CIA 

2 

dE(dA) 

K 

PB6 

Por t B 

Bit 

6 

von 

CIA 

2 

dE(dA) 

L 

PB7 

Port B 

Bit 

7 

von 

CIA 

2 

dE(dA) 

M 

PA2 

Port A 

Bit 

2 

von 

CIA 

2 

dE(dA) 

N 

GND 

Masse 






SV 

East 

alle digitalen 

Anschlüsse 

si nd 

also 

mit einem 

der im 


Kapitel 5.1.5 besprochenen CIA's verbunden. Zu beachten 
ist, daß einige Funktionen und Leitungen der CIA's vom 
64er bereits für interne Aufgaben benötigt werden und dies 
bei der Programmierung berücksichtigt werden muß. 

Vom CIA 1 sind belegt; 

Port A und Port B dienen zur Tastaturabfrage bzw. zur 

Abfrage der Joysticks. 

FLAG ist mit dem Eingabeanschluß des 

Kassettenports verbunden. 

Timer A wird für die Erzeugung des 1/60 

Sekunden-Interrupts benötigt. 

Die anderen Funktionen bzw. Leitungen des CIA 1 können Sie 
selbst programmieren. Wenn Sie die Interrupt-Möglichkeiten 
des CIA 1 ausnützen wollen, müssen Sie in Ihrer IRQ-Rou- 
tine zuerst abfragen, wodurch der Interrupt ausgelöst wur¬ 
de. Beachten Sie bitte dabei, daß das Interrupt-Kontrol 1- 
register durch einen Lesevorgang gelöscht wird. 

CIA 2: 

Die Leitungen PAO und PAl bestimmen den Arbeitsbereich des 
Video-Controllers. PAS bis PA7 werden für den seriellen 
Bus benötigt. Die freie Leitung PA2 ist an den User-Port 
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herausgeführt. Der Rest steht 
mierung zur Verfügung. 

Während eine Übereinstimmung 
Maskenregister des CIA 1 einen 
sie im CIA 2 einen NMI aus. 
RESTORE-Taste ausgelöst werden 
NMI-Routine eine entsprechende 


zu Ihrer eigenen Program- 


vom Interrupt-Daten- und 
IRQ-Interrupt auslöst, löst 
Da ein NMI auch durch die 
kann, müssen Sie in Ihrer 
Abfrage einbauen. 


Bei Verwendung der RS-232-Schnittste1le wird der CIA 2 
fast vollständig belegt, so daß Sie dann im allgemeinen 
keine Anwenderschaltung mehr anschließen können. 


Anschließen von ExperlnentierschaItungen an den User-Port 

Kleinere Schaltungen können bis zu einer Stromstärke bis 
ca. 100 mA mit der am User-Port zur Verfügung gestellten 
+5 Volt-Anschluß versorgt werden. Aus den beiden 9 Volt- 
WechseIstrom-Anschlüssen auch andere Spannungen ableiten. 
Beachten Sie, daß diese Wechselspannung nicht potential¬ 
frei ist, da sie über einen Gleichrichter mit der 5 V - 
Gleichspannung gekoppelt ist. 

Ein einfaches Beispiel und zugleich eine hilfreiche Schal¬ 
tung ist das Anschließen von sechs Leuchtdioden mit Hilfe 
eines einzigen ICs am User-Port. Die Leuchtdioden werden 
dabei über TTL-Inverter (7406) gesteuert. Der andere Pol 
der Leuchtdioden liegt an +5 V. Liegt nun an einem Eingang 
eine logische 1, so liegt am Ausgang eine 0, und die Diode 
leuchtet. Die verwendeten Widerstände begrenzen den Dio¬ 
denstrom und können bei Bedarf auch noch variiert werden. 



LED' s 
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3.2 Control-Port 


Dieser Anschluß wird normalerweise für Ooysticks, Paddies 
und den Light-Pen verwendet. Die Verwendung von Joysticks 
ist in Kapitel 2.1.1, die Verwendung von Paddies in Kapi¬ 
tel 2.1.2 beschrieben. Jeder der beiden Controlports ist 
realisiert als ein neunpoliger Stecker: 



Bild 3.2-1 : Steckeranschluß der Control-Ports 


Controlport 1 

Pin Belegung 


Typ Baustein 


1 

2 

3 

4 

5 

6 

7 

8 
9 


Joystick A oben 

dE(dA) 

CIAl 

PBO 

Joystick A unten 

dE(dA) 

CIAl 

PBl 

Joystick A links 

dE(dA) 

CIAl 

PB2 

Joystick A rechts 

dE(dA) 

CIAl 

PB3 

Paddle A 1 

aE 

SID 

Pin 23 



Über 

AS 

Feuerknopf A / Light-Pen 

dE(dA) 

CIAl 

PB4 



und 

VIC LP 

+ 5 V (maximal 100 mA) 

SV 



Mas se 

SV 



Paddle A 2 

aE 

SID 

Pin 24 



über 

AS 

(AS = Analogschalter) 
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Controlport 2 


Pin 

Belegung 



Typ 

Baustein 

1 

Joystick 

B 

oben 

dE(dA) 

CIAl 

PAO 

2 

Joystick 

B 

unten 

dE(dA) 

CIAl 

PAl 

3 

Joystick 

B 

links 

dE(dA) 

CIAl 

PA2 

4 

Joystick 

B 

rechts 

dE(dA) 

CIAl 

PAS 

5 

Paddle B 

1 


aE 

SID 

über 

Pin 23 
AS 

6 

7 

8 

Feuerknopf B 

+ 5 V (maximal 100 mA) 

Masse 

dE(dA) 

SV 

SV 

CIAl 

PA4 

9 

Paddle B 

2 


aE 

SID 

über 

Pin 24 
AS 


Die Anschlüsse für den Joystick und die Feuerknöpfe sind 
einfache digitale Anschlüsse, die mit entsprechenden An¬ 
schlüssen des CIA 1 verbunden sind. Im Joystick passiert 
nichts anderes, als daß der entsprechende Kontakt mit Mas¬ 
se kurzgeschlossen wird. Die Anschlüsse für die Paddies 
werden abgefragt, indem der Wert des Widerstandes, der 
zwischen +5 V und dem Paddle-Anschluß liegt, gemessen 
wird. Die Auswertung erfolgt optimal, wenn der Widerstand 
sich im Bereich von 200 Ohm bis 200 KOhm bewegt. Wichtig 
ist noch, daß gleichzeitig nur ein Paddle-Paar abgefragt 
wird. Die beiden Paddlepaare sind über einen Analogschal¬ 
ter geführt, den man im Bedarfsfall umstellen kann (siehe 
Kapitel 2.1.2). 


3.3 Expansion-Port 


An diesem Anschluß sind der Adreßbus und der Datenbus des 
Prozessors direkt herausgeführt, außerdem sind einige an¬ 
dere wichtige Signale verfügbar. Für Hardware-Spezialisten 
bietet sich mit dieser Schnittstelle ein nahezu unbegrenz¬ 
tes Betätigungsfeld. Schließlich wird die für den Commodo- 
re 64 verfügbare Z-80-Karte ja auch an diese Schnittstelle 
angeschlossen. 
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I 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 



ABCDEFHJ KLMNP RSTUVWXYZ 


Bild 3.3-1 : Steckeranschluß des Expansion-Ports 


Pin 

1 

2 

3 

4 

5 

6 

7 


8 


Signal Bedeutung 


GND Masse 

+ 5 Volt Versorgungsspannung 

+ 5 Volt Versorgungsspannung 


IRQ IRQ-Interruptleitung des 6510 

R/W Schreib-/Leseleitung 

Dot Clock Dot-Frequenz 7.88 MHz 


l/O 1 Auswahlanschluß für zusätzlichen 

Peripheriebaustein im Adreßbereich 
$DE00 bis $DEFF 


GAME Anschluß zum Adreßmanager; dient 

u.a. zum Ausblenden des Basic-ROM's. 


9 

EXROM 

Wie oben, jedoch zum Einblenden eines 
externen ROM in den Bereich $8000 bis 
$A000 

10 

I/O 2 

Wie 7, jedoch 
bis $DFFF 

im Adreßbereich $DF00 

11 

ROME 

Selektionsb it 
Bereich $8000 

für externe ROM's im 
bis $9FFF 

12 

BA 

Bus available 
DMA-Betrieb) 

= Bus verfügbar (für 

13 

DMA 

DMA-AnfOrderungs-Eingang 
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14 

D7 

Datenbus Bit 

7 

15 

D6 

Datenbus Bit 

6 

16 

D5 

Datenbus Bit 

5 

17 

D4 

Datenbus Bit 

4 

18 

D3 

Datenbus Bit 

3 

19 

D2 

Datenbus Bit 

2 

20 

Dl 

Datenbus Bit 

1 

21 

DO 

Datenbus Bit 

0 

22 

GND 

Masse 


A 

GND 

Masse 


B 

ROMH 

Selektiert externe ROM's im Bereich 



ab $A000 


C 

RESET 

RESET-Leitung des 6510 

D 

NMI 

NMI-Interrupt-Anschluß des 6510 

E 

PHI2 

Taktleitung 

des 6510 

L 

A15 

Adreßbus Bit 

15 

H 

A14 

Adreßbus Bit 

14 

J 

A13 

Adreßbus Bit 

13 

K 

A12 

Adreßbus Bit 

12 

L 

All 

Adreßbus Bit 

11 

M 

AlO 

Adreßbus Bit 

10 

N 

A9 

Adreßbus Bit 

9 

P 

A8 

Adreßbus Bit 

8 

R 

A7 

Adreßbus Bit 

7 

S 

A6 

Adreßbus Bit 

6 

T 

A5 

Adreßbus Bit 

5 

U 

A4 

Adreßbus Bit 

4 

V 

A3 

Adreßbus Bit 

3 

w 

A2 

Adreßbus Bit 

2 

X 

Al 

Adreßbus Bit 

1 

Y 

AO 

Adreßbus Bit 

0 

z 

GND 

Masse 



3.4 Serial-Port 


Über diesen Anschluß verkehren die Floppy, der Drucker und 
auch andere Peripheriegeräte mit dem Rechner. Alle diese 
Geräte sind am gleichen Bus angeschlossen. Das Prinzip 
dieses Busses ist ähnlich dem des lEC-Bus. Letzterer be¬ 
sitzt acht Daten-Leitungen, fünf Management-Leitungen und 
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drei Handshake-Leitungen. Der serielle Bus des 64er muß 
aus Kostengründen mit weniger Leitungen auskommen, so daß 
die Datenübertragung nicht mehr parallel sondern seriell 
erfolgt und außerdem auf ein paar Management-Leitungen 
verzichtet werden muß. Die Belegung des Steckanschlusses 
ist wie folgt: 


Pin Belegung 


verbunden mit 


1 

2 

3 

4 

5 

6 


SRQ (nicht unterstützt) 

Masse 
ATN 

in: CIA2 
out:CIA2 


CLK (in/out) 
DATA (in/out) 


RESET 


CIAl FLAG 
Masse-Leitung 
CIA2 PAS über Inverter 
PA6 

PA4 über Inverter 
in: CIA2 PA7 

out:CIA2 PAS über Inverter 


Reset-Leitung 



Bild 3.4-1 : Steckanschluß des Serial-Port 


Die Ausgänge für DATA, CLK und ATN sind über Inverter ge¬ 
führt, damit der CIA bei einem eventuellen Kurzschluß kei¬ 
nen Schaden leidet. Der Ausgang des Inverters für ATN ist 
auch am Userport Pin 9 verfügbar. Der Anschluß SRQ ist mit 
dem Kassettenrekorder-Read-Anschluß verbunden; jedoch wird 
der SRQ-Anschluß von keinem Commodore-Gerät benützt und 
auch vom Rechner nicht abgefragt. Beim lEC-Bus ist diese 
Leitung für den Fall vorgesehen, daß z.B. ein Drucker mel¬ 
det, daß kein Papier mehr vorhanden ist (Service Request). 


Funkionsweise des seriellen Bus (schematisch) 

Der Informationsablauf auf dem Bus wird von einem Control¬ 
ler (hier also unserem Rechner) gesteuert. Obwohl der Bus 


214 


Kapitel 3 


bidirektional ist (Daten können sowohl in eine als auch in 
die andere Richtung fließen), darf nur ein Controller am 
Bus hängen. Jedes Gerät am Bus (außer dem Controller) hat 
eine eigene Nummer, die sogenannte Primäradresse. Über 
diese Primäradresse kann der Controller Kommandos an die 
Geräte verteilen. Die sogenannte Sekundäradresse dient zum 
Ansprechen von Untereinheiten im angesprochenen Gerät wie 
z.B. dem Fehlerkanal der Floppy. Mögliche Kommandos sind; 


Talk : 

Auf forderung 
zu senden. 

an Gerät, 

ab 

jetzt Daten 

Untalk : 

Auf forderung 

an Gerät, 

mit 

dem Senden 


von Daten aufzuhören. 



Listen : 

Auf forderung 

an Gerät, 

Daten zu 


empfangen 




Unlisten; 

Auf forderung 

an Gerät, 

ab 

nun keine 


Daten mehr zu 

empfangen. 



Die Kommandos Unlisten und Untalk wirken jeweils auf alle 
angesprochenen Peripherie-Geräte. Zur Unterscheidung von 
Kommandos von normalen Daten dient die Leitung ATN. Ist 
sie 'wahr', werden Kommandos gesendet. Auch die Sekundär¬ 
adresse wird mit ATN = 'wahr' gesendet. Dabei gibt es fol¬ 
gende Besonderheiten: 


1. Sekundäradressen größer als 128 werden nicht 
als solche gesendet 

2. Bei Sekundäradressen nach Talk muß Bit 5 und 
Bit 6 gesetzt sein 

3. Sind nach einem Listenkommando Bit 4 bis 7 
der Sekundäradresse gesetzt, erwartet das 
angesprochene Gerät nachfolgend einen Datei¬ 
namen. 

4. Ist nach einem Listenkommando in der Sekun¬ 
däradresse das Bit 7 null, aber Bit 6, Bit 5 
und Bit 4 gleich 1, so wird die Datei auf dem 
Peripherie-Gerät geschlossen. 


Mit diesen Angaben dürfte es Ihnen möglich sein, mit Hilfe 
der Tabelle in Kapitel 5.2.1 unter Benutzung der Routinen 
ACPTR, CIOUT, LISTEN, READST, SECOND, TALK, TKSA, UNLSN 
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und UNTALK den seriellen Bus zu bedienen. Sie sollten aber 
in jedem Fall aufpassen, daß Sie zuerst ein Gerät abmel¬ 
den, bevor Sie ein neues anmelden. 

Die Unlisten- und Untalk-Kommandos sind übrigens nichts 
anderes als Listenkommandos mit der Geräteadresse 63 bzw. 
95. 

Außer mit den oben aufgeführten Kerna1-Routinen können Sie 
den seriellen Bus natürlich auch über logische Dateien, 
also ähnlich wie Basic, oder direkt von Basic aus 
bedienen. 


3.5 Audio-Vldeo-Port 


An diesen Anschluß sind 3 Video- und 2 Audio-Anschlüsse 
zusammengefaßt. Die Steckerbelegung im Handbuch ist 
falsch, weil dort statt des achtpoligen DIN-Steckers nur 
ein fünfpoliger abgebildet wurde und die Farbinformation 
am nicht abgebildeten mittleren Anschluß abzugreifen ist. 



Bild 3.5-1 : Steckanschluß des Audio-Video-Port 


Pin Belegung 

1 Luminanz 

2 Masse 

3 Audio-Ausgang 

4 Hilfssignal für Video 

5 Audio-Eingang 

8 Chrominanz 
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Für schwarz/weiß-Mon i tore reicht es, die Video-Information 
zwischen Pin 1 und Pin 2 abzunehmen. 

Der Audio-Ausgang ist der mit einer Transistör stufe ver¬ 
stärkte Ausgang des SID. Der Audio-Eingang ist über einen 
Kondensator direkt mit dem Eingang des SID verbunden. 


3.6 Kassetten-Port 


Bei diesem zwölfpoligen Platinen-Direktstecker sind je¬ 
weils die oberen Anschlüsse mit den unteren verbunden. 
Die Belegung ist: 


1 2 3 4 5 6 

■ M 


A B C D E F 


Bild 3.6-1 ; Steckanschluß des Kassetten-Port 


Pin 

Belegung 

verbunden mit 



A/1 

Masse 




B/2 

+ 5 Volt 




C/3 

Motorsteuerung 

Prozessor-Port 

Bit 

5 

D/4 

Read-Leitung 

CIAl ELAG 



E/5 

Write-Leitung 

Prozessor-Port 

Bit 

3 

F/6 

Sense-Leitung 

Prozessor-Port 

Bit 

4 


Zwischen dem Prozessor-Port Bit 5 und dem Anschluß C/3 am 
Kassetten-Port ist eine Transistorstufe zwischengeschal¬ 
tet, die die Versorgungsspannung für den Motor des Kasset¬ 
tenrekorders ein- und ausschaltet. Die Sense-Leitung fragt 
ab, ob eine Taste am Rekorder gedrückt ist. Dem Anschluß 
C/2 ist ein RC-Glied vorgeschaltet wodurch u.a. verhindert 
wird, daß durch ein Kurzschluß an diesem Anschluß der 
Rechner zerstört wird. 




In der Kürze liegt die Würze 
Tips und Tricks 
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4. In der Kürze liegt die Würze - Tips und Tricks 


In dem folgenden Kapitel haben wir für Sie einige interes¬ 
sante Kleinigkeiten zusammengefaßt. In den meisten Fällen 
sind es Hilfsmittel, die Ihnen den Umgang mit Ihrem Com- 
modore 64 erleichtern sollen. In der Regel sind es hilf¬ 
reiche PEEK's und POKE's, aber auch SYS-Aufrufe und kleine 
Programme. Im zweiten Unterkapitel gehen wir kurz auf die 
Kommunikation mit anderen Commodore-Rechner ein. Der VC 20 
wurde dabei ausgespart, weil der Grad der Inkompatibilität 
zu hoch ist. 


4.1 Diverse PEEK’s, POKE's und SYS-Aufrufe 


Allgemeine Anmerkung: Die folgenden Tips sind nach dem 

wichtigsten Schlagwort alphabetisch 
gegliedert, damit ein leichtes Auf¬ 
finden ermöglicht wird. Der Begriff 
ist jeweils in Großbuchstaben ange¬ 
geben. 


ASCII-CODE in Bildschirmcode umwandeln 


Mit den ersten beiden Zeilen des folgenden Programmes wird 
ein in A vorliegender ASCII-Code in den Bildschirmcode des 
Commodore 64 umgewandelt, der Rest stellt ein Testprogramm 
dar: 


4 A(0)=128 : A(l)=32 : A(2)=0 : A(3)=64 : A(4)=192 : 

A(5)=96 : A(6)=64 : A(7)=96 
8 DEF FNB(X)=A(X/32)+(XAND3l)+33*(X=255) 

10 FOR X=25TC 255 

15 PR INT"(CER)" ;X,FNB(X) ,CHR$(34),CHR$(X) 

20 POKE 1048,FNB(X) 
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25 FOR W=1 TO 200 : NEXT 
30 NEXT 


In der ersten Zeile wird eine Umrechnungsvorgäbe in einem 
Feld festgelegt, die in der zweiten Zeile verwertet wird. 
Bei der Umrechnung können jeweils Bereiche von 32 Zeichen 
als ganzes behandelt werden (X AND 31), wenn man von dem 
letzten Zeichen (PI; ASCII=255 - Bildschirmcode=94) 
absieht. Näheres ist aus folgender Tabelle ersichtlich: 


Bits 

im ASCII- 

Code 

Bit 

im Bildschirmcode 

128 

64 

32 

128 

64 

32 

0 

0 

0 

1 

0 

0 

0 

0 

1 

0 

0 

1 

0 

1 

0 

0 

0 

0 

0 

1 

1 

0 

1 

0 

1 

0 

0 

1 

1 

0 

1 

0 

1 

0 

1 

1 

1 

1 

0 

0 

1 

0 

1 

1 

1 

0 

1 

1 


Man sieht leicht, daß die Zuordnung nicht umkehrbar ein¬ 
deutig ist. 


BILDSCHIRM-RAM und Zeichensatz verlegen 


Das Register 53272 ist für die Position des Bildschirm-RAM 
und den Zeichensatz zuständig. Dabei gilt 

1. Halbbyte (Bits 7-4) * 1024 = 

Startadresse Bildschirm-RAM 

2. Halbbyte (Bits 3-0) * 1024 = 

Startadresse Zeichengenerator 

Achtung: Bit 0 wird nicht berücksichtigt, so daß sich 

folgende Möglichkeiten ergeben: 
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Wert in 53272 

xxxxOOOx 

xxxxOOlx 

xxxxOlOx 

xxxxOllx 

xxxxlOOx 

xxxxlOlx 

xxxxllOx 

xxxxlllx 


Startadresse 

0 

2048 

4096 

6144 

8192 

10240 

12288 

14336 


Beispiel: POKE 53272, 18 (=1*16+2) ergibt 

Startadresse Bildschirm-RAM : 1024 
Startadresse Zeichensatz : 2048 

Achtung: für das Bildschirm-RAM muß auch die Adresse 648 
geändert werden. 

POKE 648, (Startadresse)/256 

Relative Adresse zum VIC-Arbeitsbere ich, der in 56576 
definiert ist. 


CURSOR an/au8 

POKE 204,0 an 

POKE 207,0:P0KE204,1 aus 


CURSORGESCHWINOIGKEIT ändern 


POKE 56325,X X - gewünschte Geschwindigkeit 

1 - schnell,..., 255 langsam 
0 - Bildschirmausgabe verlangsamen 
52 - normaler Zustand, seltene Werte zwischen 51 und 
59 in unregelmäßigen Abständen 

Achtung: Da sich die Interrupt-Geschwindigkeit ändern 
kann, geht die Tl-Uhr falsch. 
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Schließen aller offenen DATEIEN 

SYS 65511 

Die Dateien werden dabei nur im Rechner geschlossen; auf 
der Floppy können sie weiterhin offen bleiben; dort kann 
man sie mit 

OPENl,8,15:CLOSEI 

schl ießen. 


Anzahl der offenen DATEIEN 

PEEK(152) 


DAUERFUNKTION für Tasten 


POKE 650, X 


X = 128 : alle Tasten 

X = 0 : normal (Cursor und Leertaste) 

X = 64 : alle Tasten ohne Dauerfunktion 


Zeilen automatisch löschen - DELETE 


Wer nach einem teilweise Umarbeiten eines Programmes viele 
Zeilen zuviel hat, wird sich sehnlichst eine DELETE- 
Routine wünschen.- Im folgenden stellen wir eine Basic- 
Routine vor; etwas ausführlicher, weil sie einige Tricks 
beinhaltet. Sicherlich geht es auch kürzer. Verwendet wird 
der Tastaturpuffer und der Puffer für den Kassettenrekor¬ 
der. 

Prinzip des Programmes: 

- Zeilennummern, die gelöscht werden sollen, nach¬ 
einander auf den Bildschirm bringen 

- Programm verlassen 
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- Zeile löschen 

- Programm 'mittendrin' wieder neu starten, natür¬ 
lich mit der nächsten zu löschenden Zeile 

Kurz gesagt: den Handbetrieb automatisieren 


1 G0T060100 

60000 INPUT"VON";VO 

60010 INPUT"BIS";B1 

60020 INPUT"SCHRITTWEITE" ,-SR 

60030 P0KE831,V0 AND 255 

60040 P0KE832,V0/256 

60050 P0KE833,BI AND 255 

60060 P0KE834,BI/256 

60070 P0KE835,SR 

60100 V0=PEEK(832)*256+PEEK(831) 

60110 BI=PEEK(834)*256+PEEK(833) 

60120 SR=PEEK(835) 

60130 PRINT"(CLR)";V0 
60140 IE VO GE BI THEN STOP 
60150 V0=V0+SR 
60160 P0KE831,V0 AND 255 
60170 P0KE832,V0/256 

60180 P0KE631,145 : REM CURSOR NACH OBEN 

60190 P0KE632,145 : REM CURSOR NACH OBEN 

60200 P0KE633,145 : REM CURSOR NACH OBEN 

60210 P0KE634,13 : REM CHR$(13) 

60220 P0KE635,82 : REM R 

60230 P0KE636,85 : REM U 

60240 P0KE637,78 : REM N 

60250 P0KE638,13 : REM CHR$(13) 

60260 P0KE198,8 : REM ZAHL DER ZEICHEN IM PUEEER 


Zeile 1 wird benötigt, weil der Tastaturpuffer nur zehn 
Zeichen aufnehmen kann und eine Zeilennummer für ein Pro¬ 
gramm ziffernweise (genau: zeichenweise) eingegeben werden 
muß. Die Zeilen von 60000 bis 60070 werden nur zur Erfas¬ 
sung der gewünschten Daten benötigt, wobei die größeren 
Zahlen (VO, BI) jeweils in der üblichen form (Low-Byte, 
High-Byte) in den Kassettenpuffer geschrieben werden. 

In Zeile 60100 beginnt die eigentliche 'Programmschleife': 
Lesen der aktuell zu löschenden Zeile, Endekriterium prü¬ 
fen, neuen Wert anhand der Schrittweite berechnen. Sichern 
dieses Wertes, füllen des Tastaturpuffers wie angegeben 
und Programmabbruch. 

Warum die Variableninhalte sichern? Das Löschen einer 
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Zeile ist eine Programmänderung und löscht somit alle 
Variablen. 

Wenn Sie die Zeile 1 weglassen, können Sie die Programm¬ 
sequenz mit dem weiter unten beschriebenen Kurz-MERGE 
einladen, Zeile 1 eintippen und mit RUN 60000 starten. 
Vielleicht gibt Ihnen das Programm auch ein Tip für Ihre 
anderen Probleme. 


DIRECTORY ohne PrograaBverlust laden 

(siehe auch VIEW in Kapitel 2.2) 

POKE 44, PEEK (46)+l 
LOAD '$“,8 

POKE 43,1 : POKE 44,8 


FARBWECHSEL unter dem Cursor 


PEEK (647) gibt die Farbe unter dem Cursor an. 
Dementsprechend kann Sie mit 

POKE 647, X X = 0,...,15 

geändert werden. 


FILE-PARAMETER ln der Zero-Page 


PEEK (183) - Länge des Filenamens 

PEEK (184) - aktuelle Filenummer 

PEEK (185) - aktuelle Sekundär-Adresse 

PEEK (186) - aktuelle Primäradresse 

PEEK (187, 188) - Zeiger auf Dateinamen 
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FREIER SPEICHERPLATZ 


Die korrekte Ausgabe des freien Speicherplatzes (Basic) 
erhalten Sie mit 

PRINT FRE(X)+65536, wenn FRE(X) negativ 


INPUT-Ersatz 


Für Textverarbeitungsprogramme und Datenverwaltungsrouti¬ 
nen ist der normale Basic-INPUT-Befehl schlecht geeignet, 
da Probleme auftauchen, wenn Kommata, Doppelpunkte und An¬ 
führungszeichen im Text gemischt auftreten können. 

Um diesem Übel abzuhelfen, haben wir den Befehl LEST (Ka¬ 
pitel 2.2.9.4) entwickelt, der sowohl für Eingaben vom 
Bildschirm als auch von Dateien den INPUT- bzw. INPUT#-Be- 
fehl ersetzt, ohne daß die oben genannten Schwierigkeiten 
auftreten und er auch im Direktmodus verwendet werden 
kann. 

Für die Eingabe vom Bildschirm geht es jedoch auch ein¬ 
facher mit der folgenden kleine Routine: 


1000 B$ = ■" : REM Ausgabestring annullieren 

1010 SYS 65487 : REM KERNAL-Routine CHRIN ($FFCF) 

1020 A=PEEK(780) : REM Akku = gelesenes Zeichen 

1030 IF A=13 THEN RETURN : REM Ende bei 'Return'-Taste 

1040 B$=B$+CHR$(A) : REM in B$ Zeichen sammeln 

1050 GOTO 1010 : REM Schleife 


Diese Routine wird mid GOSUB 1000 aufgerufen und gibt den 
eingelesenen String in B$ zurück. Hierbei wird kein Frage¬ 
zeichen - wie bei INPUT üblich - ausgegeben, außerdem 
steht der Cursor nachher in der alten Zeile. Wenn es not¬ 
wendig sein sollte, können Sie diesen Mangel aber leicht 
mit PRINT-Befeh len beseitigen. 
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Die CHRIN-Routine bewirkt beim ersten Aufruf, daß der Cur¬ 
sor blinkt und die Zeile eingegeben werden kann. An¬ 
schließend wird die Routine aufgerufen, um die Zeichen zu 
holen, wobei das Endekriterium das Auftauchen von CHR$(13) 
ist. 


INVERS-MOOUS 

POKE 199,1 ein 

POKE 199,0 aus 


OOYSTICKSIMULATION über Tastatur 


Da Joystick und Tastaturabfrage in einem erledigt werden 
können, ist es auch möglich, die Joystickeingabe über 
Tastatur zu simulieren, was allerdings für schnelle Reak¬ 
tionen einiges Geschick erfordert. Bei untenstehender Ta¬ 
belle wird auch deutlich, warum die Kollision zwischen 
Joystick und Tastatur bei Control-Port 2 (Adresse 56320) 
nicht so gravierend ist: Wer drückt schon im Normalfall 
die angegebenen Tastenkombinationen? 


Controlport 1 (56321) 

Leertaste - Feuer 

CTRL-Taste - links 

1 - oben 

2 - rechts 

LT (Kleinerzeichen) - unten 

Controlport 2 (56320) 

CTRL und J - Feuer 

CTRL und D - links 

CTRL und Cursor rechts - oben 

CTRL und G - rechts 

CTRL und A - unten 


Vergleiche auch Kapitel 2.1 und Kapitel 5.8 
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LÄNGE der Bomentanen BILDSCHIRMZEILE 


Diese kann mit PEEK (213) abgefragt werden 


LETZTE ZEILENNUMMER nach Programmabbruch 


Haben Sie nach einem Programmabbruch durch die STOP-Taste 
versehentlich den Bildschirm gelöscht und wollen wissen, 
welche Zeile die Meldung 'BREAK IN enthalten hat, 
können Sie diese mit 

PRINT PEEK(57) + 256* PEEK(58) bzw. DEEK(57) 
e rfahren 


LISTSCHUTZ ein/aus 


POKE 775,200 (ein) POKE 775,167 (aus) 


LIST während Programmablauf 


100 POKE 631,82 
110 POKE 632,69 
120 POKE 633,212 
130 POKE 634,13 
140 POKE 198,4 
150 LIST 


631 - 633 : Abkürzung für Basic-Befehl RETURN 
634 : RETURN-Taste 

198 : Anzahl gültiger Zeichen im Tastaturpuffer 


(vergleiche auch ausführlicheres Beispiel unter DELETE) 
Das Programmstück ist als Unterprogramm aufzurufen, obwohl 
kein RETURN am Ende steht. Dies wird durch das Programm 
selbst übernommen. Sinnvoll ist der Einsatz beim Programm¬ 
test. 
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LOAD ERROR ungehen 


POKE 45,PEEK(831) 

POKE 46,PEEK(832) 

CLR 

oder 

DOKE 45,DEEK(831):CLR 

Durch SAVE wird ein Programm zweimal auf Kassette gespei¬ 
chert. Wird beim Laden eine gewisse Zahl von Fehlern über¬ 
schritten, tritt ein LOAD ERROR auf, auch wenn das zuerst 
geladene Programm fehlerfrei ist (z.B. Beschädigung des 
Bandes, dort wo sich die Kopie befindet). Aber versuchen 
kann man es immer (vielleicht ist auch ein Fehler in einer 
Stringkonstanten). Siehe auch Kaltstart, Kapitel 2.1.4.2 


Ein einfaches MERGE 


- erstes Programm laden 

- PRINT PEEK(43), PEEK(44) 

- Ergebnis merken (Basic-Anfang) 

- POKE 43,(PEEK(45) + 256*PEEK(46)-2) AND255 

- POKE 44,(PEEK(45) + 256*PEEK(46)-2) /256 
(Anfangszeiger auf Ende des Programmes setzen) 

- zweites Programm laden 

- POKE 43, (erste gemerkte Zahl) 

- POKE 44, (zweite gemerkte Zahl) 

- SYS 42291 (oder SYS$A533) (Programm verbinden) 

Achtung: das zweite Programm muß höhere Zeilennummern 
haben als das erste Programm. 


PROGRAMM RETTEN 


Folgende Anweisungen funktionieren natürlich nur, wenn Sie 
ein Programm versehentlich mit NEW oder einem Reset ge¬ 
löscht haben. In diesem Fall steht das Programm noch im 
Speicher und nur einige Zeiger wurden durch den Rechner 
'umgebogen' (Alle Programmzeilen sind jeweils mit RETURN 
abzusch1ießen). 
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- POKE 46, PEEK(56)-1 

- POKE 45, PEEK(55)+247 

- CLR 

(Zeiger auf Start der Variablen an Basic-RAM-Ende) 

- POKE PEEK(44)*256 + PEEK(43)+1, PEEK(44) 

- 63999 

- FOR I=PEEK(44)*256+PEEK(43) TO PEEK(46)+256 + PEEK 

(45):IF PEEK(I) OR PEEK(I+l)ORPEEK(1+2) THEN NEXT 
(! Abkürzungen verwenden ! / Suche nach Programm- 
ende: drei aufeinanderfolgende 0-Bytes) 

- POKE 45, (I+3)AND 255 

- POKE 46, (l+3)/256 
-CLR 

(Neues Programtnende setzen) 


PROGRAMM ZERSTÖREN 


Um ein Programm gegen unbefugte Benutzer - etwas 
abzusichern, kann man nach einem falsch beantworteten 
Passwort das Programm sehr leicht mit 

POKE 776,1 

zerstören, indem der Vektor für die Basic-Befehlsadresse 
umgesetzt wird. 

Andere Möglichkeit: 

SYS 64738 (Systemreset) 

(siehe auch Listschutz) 


RAM-BEREICH SPEICHERN / LADEN 


Zum Speichern von Grafiken (sofern diese im zugriffs¬ 
fähigen RAM liegen) und Maschinenprogrammen ist es oft 
sinnvoll, RAM-Bereiche direkt zu speichern. Dies geht mit: 


SYS 57812 'Name',8 
POKE 193, (Anfangsadresse Low Byte) 
POKE 194, (Anfangsadresse High Byte) 
POKE 780, 193 
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POKE 781, (Endadresse Low Byte) 
POKE 782, (Endadresse High Byte) 
SYS 65496 


Das Gegenstück dazu ist das Laden an eine gewünschte 
Adresse: 


SYS 57812 “Name“,8 
POKE 780,0 

POKE 781, (Zieladresse Low Byte) 
POKE 782, (Zieladresse High Byte) 
SYS’65493 


Anschließend kann mit 

PEEK (782)*256 + PEEK(781) 
die letzte geladene Adresse + 1 abgefragt werden. 


Software - RESET 


SYS 64738 

bewirkt einen Sprung auf die Initialisierungsroutine, die 
beim Einschalten angesprungen wird. 


Hardware - RESET 


a) Pin 1 und Pin 3 am User-Port verbinden (GND und Reset) 

b) Pin 2 und Pin 6 am seriellen Bus verbinden (erreichbar 
am Eloppy-Stecker) 

Nicht vergessen: Basic-Zeiger sind im Urzustand und müs¬ 
sen für das aktuelle Programm gesetzt werden. 
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SPEICHERN auf Kassettenrekorder und Floppy VERHINDERN 


Kassettenrekorder 


POKE 

POKE 

0,7 gaukelt dem Benutzer nur das Abspeichern 

vor. Probieren Sie LOAD! 

0,47 Normalzustand 

Floppy 



POKE 

POKE 

POKE 

819.253 

818.253 
808,225 

ergibt Missing File-Name 

STOP-Taste ausschalten 

POKE 

POKE 

POKE 

819,253 

818,34 

808,225 

ergibt den den Assembler-Program¬ 
mierern hinlänglich bekannten Befehl 
BIF (Branch in Forest) 

POKE 

POKE 

POKE 

818.237 
819,245 

808.237 

Normal-Modus 

Bemerkung: 

: in 818/819 steht der SAVE-Vektor 
in 808/809 steht der STOP-Vektor 


STATUSABFRAGE 

PRINT ST 

oder 

PRINT PEEK(144) 

gibt den Gerätestatus aus (zu den Bedeutungen vgl. Kapitel 


RUN / STOP aus/ein 


POKE 788,52 (aus) 


POKE 788,49 (ein) 
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RUN/STOP-RESTORE aus/ein 


POKE 808,225 (aus) POKE 808,237 (ein) 


STOP-Taate sperren (andere Möglichkeit) 


POKE 830, 169 EDA 

POKE 831, 1 #1 

POKE 832, 96 RTS 

POKE 808,62 

POKE 809,3 (830) 

(DOKE 808,830) 


Das Betriebssystem setzt durch die Stop-Taste das Zero- 
Flag in einem kleinen Programm. Durch obige Routine wird 
ein Unterprogramm in den Kassettenpuffer geschrieben, das 
immer das Zero-Flag löscht. Die Speicherzellen 808 und 809 
zeigen auf die Betriebssystem-Routine. 


STOP-Taste freigeben 


POKE 808,237 Anfangsadresse 

POKE 809,246 Betriebssystem-Routine eintragen 

(DOKE 808,63213) 


Synthetische STEUERZEICHEN (Finkein) 

Steuerzeichen sind in normalem Text eingebettete Zeichen, 
die nicht ausgegeben werden, sondern eine andere Aktion 
veranlassen, wie z.B. Bildschirm löschen (inverses Herz) 
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oder die Cursor-Bewegungen. 

Neben der normalen Tastenfunktion (z.B. durch, CLR/HOME) 
können diese Zeichen aber auch synthetisch erzeugt werden. 
Für ein vorhandenes Steuerzeichen könnte man dies wie 
folgt durchführen: 

Eingabe Wirkung 

?“" Leere Zeichenreihe ausdrucken. 

Beachten Sie: Sie sind nicht mehr im 
“Texteingabemodus'. 

DEL-Taste hinteres '“'-Zeichen löschen 

RVS-ON-Taste Invers-Modus direkt einschalten 

Q Steuerzeichen für Cursor nach hinten 

eingeben 

RVS OFF-Taste Invers-Modus direkt ausschalten 

RETURN-Taste Übergabe an den Rechner 

Probieren Sie es auch mit der Eingabe 'S' (Cursor in 
linke, obere Bildschirmecke / HOME 

Hier eine Liste von synthetischen Steuerzeichen, die auch 
mit PRINT CHR$(X) bewirkt werden können: 


Zeichen CHR$-Code Bedeutung 

H 8 Umschaltung Groß/Kleinschrift 

durch C= und SHIFT wird gesperrt 

I 9 Gegenteil zu H 

M 13 RETURN; Rest der Zeile wird nicht 

mehr ausgegeben 

N 14 Umschalten auf Kleinschrift 

T 20 ersetzt DEL-Taste 

SHIFT + M 141 SHIFT RETURN z.B. Drucken des 

Textes ab diesem Zeichen in der 
nächsten Zeile 

SHIFT + M R Ausführen der Steuerzeichen auch 

im Listing, in diesem Fall REVERSE 
ON. Probieren Sie auch andere 
Steuerze iche n 

Umschalten auf Großbuchstaben 
ersetzt INST-Taste 


SHIFT + N 142 
SHIFT + T 148 
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Gedrückte TASTE 

PEEK (203) 


Characterwert der letzten gedrückten TASTE 

PEEK (215) 


Umschalten auf GROSS/KLEINSCHRIFT 


PRINT CHR$(14) - Groß/Kleinschrift 

PRINT CHR$U42) - Normalmodus 


WARTESCHLEIFEN 


Neben dem bekannten 

10 GET A$ : IF A$ = ” THEN 10 

gibt es noch die Version 

10 GET A$ : ON -(A$="') GOTO 10 

die den Rest der Zeile (bei knappem Platz) auch noch 
nutzbar macht, weil die IF-Abfrage wegfällt. Auch möglich 

WAIT 198,1 : GETA$ (Taste gedrückt) 

Auf den Joystick wartet 

WAIT X,127,127 mit X=56320 für Port 2 
und X=56321 für Port 1 
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ZEICHENFARBE ändern 


Wer die CTRL-Kombinationen umgehen möchte, und damit auch 
die Steuerzeichen im String, kann auch die Adresse 646 
benutzen: 

POKE 646, (Farbcode) 


ZEILE auf dea Bildschirm LÖSCHEN 


POKE 781,Z 
SYS 59903 


ZEITERSPARNIS bei aufwendigen Berechnungen 


Haben Sie auch schon festgestellt, daß der Bildschirm 
nichts anzeigt, wenn ein Programm von Kassette geladen 
wird? Da der Rechner den VIC nicht benötigt, wird er 
einfach abgeschaltet. Da Eingaben von der Tastatur somit 
auch sinnlos sind und Timer etc. nicht gebraucht werden, 
kann man auch den IRQ abschalten. Zusammen ergibt dies: 

POKE 53265, PEEK(53265) AND 239 

(VIC ausschalten) 

POKE 56333,1 

(IRQ abschalten) 

und das ganze zurück: 

POKE 53265, PEEK(53265) OR 16 (VIC) 

POKE 56333,129 

Ein kleines Problem: Die Tastatur geht nicht mehr. 
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4.2 Programmaustausch mit anderen Commodore-Rechnern 


Im diesem Kapitel sollen Hinweise zur Nutzung des Commodo- 
re 64 mit Programmen der Rechner 20xx, 30xx, 80xx gegeben 
werden. Da Programme der alten Serien 2000/3000 übernommen 
werden können, und als reine Basic-Programme im Prinzip 
sofort lauffähig sind, soll hier auf die Übernahme solcher 
Programme eingegangen werden. Oie Übernahme von Basic- 
Programmen der Serien 3000/4000/ 8000 auf den Commodore 64 
ist unproblematisch, da der Commodore 64 die Programme 
selbst anpaßt. Wegen der anderen Diskettenformate kann 
eine Übertragung nur mit dem Kassettenrekorder erfolgen. 


Serie 2000 auf Commodore 64 

Oie Programmdateien beim Commodore 64 sind gegenüber der 
2000er Serie um ein Byte kürzer. Deshalb ist mit den An¬ 
weisungen (im Direkt-Modus nach Laden des Programms) 

POKE 2051,PEEK(2052) 

POKE 2052,PEEK(2053) 

POKE 2053,58 

schon die Lauffähigke it hergestellt. Dies gilt natürlich 
nur für reine Basic-Programme. In den ersten beiden Zeilen 
wird die Anfangsadresse des Basic-Programmes um eine 
Adresse vorgezogen, und in der dritten Zeile wird das 
'frei' gewordene Zeichen in der ersten Programmzeile mit 
einem ':' besetzt. Diesen Doppelpunkt kann man dann im Ba- 
sic-Editor nach LIST ganz normal löschen, wenn er stört. 


Commodore 64 auf Serien 8000 und 3000 


Bei Übernahme von Programmen auf Rechner der Serie 8000 
und 3000 sieht die Sache etwas anders aus. Nach dem Laden 
des Programmes über den Kassettenrekorder ruft man zu¬ 
nächst den eingebauten Monitor mit 

SYS 1024 

auf, und läßt sich die Speicherzellen 1024 bis 1030 
(dezimal) anzeigen mit 
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•m 0400 0400 

Anschließend ändert man die Anzeige wie folgt ab: 

. 0400 00 01 08 00 00 3A 00 aa 

Damit wird der Programmanfang auch für die 8000/3000er 
Serie auf das beim Commodore 64 übliche 2. Kilobyte des 
RAMs gelegt, und eine Zeile 0 eingefügt, die einen 
enthält. 

Dann kann man mit 


. X 


den Monitor verlassen und mit 
0 (Return-Taste) 

die Zeile 0 gleich wieder löschen. Mit 
LIST 

hat man nun das gleiche Programm wie auf dem Commodore 64. 
Durch die Verschiebung nach vorne (Beginn in Adresse 1024 
statt 2048) zeigt der Vektor auf das Ende des Programmes 
um ein KByte zu weit nach hinten. Bei mehrmaligem übertra¬ 
gen zwischen den Rechner wird das Programm für das Be¬ 
triebssystem immer größer. Dies kann man umgehen mit: 

P0KE43, PEEK(43)-4 

indem der Wert für das Higher Byte um vier Blöcke verklei¬ 
nert wird. 




5 

Tabellen und Diagramme 
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5. Tabellen und Diagramme 


Im folgenden Kapitel haben wir für Sie die wichtigsten In¬ 
formationen über Ihren Commodore 64 in tabellarischer Form 
bzw. mit Abbildungen dargestellt. Aus Gründen der Über¬ 
sicht und um Ihnen etwas Raum für eigene Notizen zur Ver¬ 
fügung zu stellen, beginnt jeder Abschnitt auf einer neuen 
Seite. 


5.1 Speicher und Register 


Da der Anwenderspeicher, seine Aufteilung und Handhabung, 
sowie die benötigten Register zur Steuerung der Eigen¬ 
schaften Ihres 64er grundlegende Bedeutung haben, widmet 
sich der erste Teil ganz diesem Thema. 


5.1.1 Zero-Page und weitere wichtige Adressen 


Hexadez. 

Dezimal 

Belegung 

00 

0 

Datenrichtungsregister für Prozes¬ 
sorport 

01 

1 

P rozessorport 

02 - 06 

2-6 

frei 

07 

7 

Suchzeichen 

08 

8 

Merker für Hochkomma-Modus 

09 

9 

Speicher für Spalte beim TAB-Befehl 

OA 

10 

Load:0, Verify:1, 

OB 

11 

Zeiger in Eingabepuffer, Anzahl der 
Dimensionen 

OC 

12 

Merker für DIM 

OD 

13 

Merker $00:numerisch, $FF:String 

OE 

14 

Merker $80:Integer, $00:F1ießkomma 

OF 

15 

Merker für Hochkomma-Modus bei LIST 

10 

16 

Merker für FN 
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Hexadez. 

Dezimal 

Belegung 

11 



17 



Merker für INPUT:$00, GET:$40, 







READ:$98 

12 



18 



Vorzeichen bei ATN 

13 



19 



aktives I/O-Gerät 

14 

- 

15 

20 

- 

21 

Integer-Adresse, z.B. Zeilennummer 

16 



22 



Zeiger auf Stringstack 

17 

- 

18 

23 

- 

24 

Zeiger auf zuletzt verwendeten 







String 

19 

- 

21 

25 

- 

33 

Stringstack 

22 

- 

23 

34 

- 

35 

Zeiger auf String nach FRESTR 

24 

- 

25 

36 

- 

37 

Zeiger für diverse Zwecke 

26 

- 

2A 

38 

- 

42 

Register für Funktionsauswertung 







und Arithmetik 

2B 

- 

20 

43 

- 

44 

Zeiger auf Basic-Programmstart 

2D 

- 

2E 

45 

- 

46 

Zeiger auf Start der Variablen 

2F 

- 

30 

47 

- 

48 

Zeiger auf Start der Arrays 

31 

- 

32 

49 

- 

50 

Zeiger auf Ende der Arrays 

33 

- 

34 

51 

- 

52 

Zeiger auf Beginn der Strings 

35 

- 

36 

53 

- 

54 

Hilfszeiger auf String 

37 

- 

38 

55 

- 

56 

Zeiger auf BASIG-RAM Ende 

39 

- 

3A 

57 

- 

58 

aktuelle BASIO-Zeilennummer 

3B 

- 

30 

59 

- 

60 

letzte Basic-Zeilennummer 

3D 

- 

3E 

61 

- 

62 

Zeiger auf nächsten BASIO-Befehl für 







OONT 

3F 

- 

40 

63 

- 

64 

aktuelle Zeilennummer für DATA 

41 

- 

42 

65 

- 

66 

Zeiger auf nächstes DATA-Element 

43 

- 

44 

67 

- 

68 

Zeiger auf Eingabeelement 

45 

- 

46 

69 

- 

70 

aktueller Variablenname 

47 

- 

48 

71 

- 

72 

aktuelle Variablenadresse 

49 

- 

48 

73 

- 

74 

Zeiger auf Variablenwert 

4B 

- 

40 

75 

- 

76 

Zwischenspeicher für Programmzeiger 

4D 



77 



Maske für Vergleichoperationen 

4E 

- 

4F 

78 

- 

79 

Zeiger für FN 

50 

- 

53 

80 

- 

83 

Stringdescriptor 

54 



84 



Konstante $40 JMP für Funktionen 

55 

- 

56 

85 

- 

86 

Sprungvektor für Funktionen 

57 

- 

5B 

87 

- 

91 

Register für Arithmetik, Akku#3 

5C 

- 

60 

92 

- 

96 

Register für Arithmetik, Akku#4 

61 

- 

65 

97 

- 

101 

Fließkommaakku #1, FAO 

66 



102 



Vorzeichen von FAO 

67 



103 



Zähler für Polynomauswertung 

68 



104 



Rundungsbyte für FAO 

69 

- 

6D 

105 

- 

109 

Fließkommaakku #2, ARG 

6E 



110 



Vorzeichen von ARG 

6F 



111 



Vergleichsbyte der Vorzeichen von 







FAO und ARG 

70 



112 



Rundungsbyte für FAO 

71 

- 

72 

113 

- 

114 

Zeiger für Polynomauswertung 

73 

- 

8A 

115 

- 

138 

GHRGET-Routine, holt Zeichen aus 
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Hexadez. 

Dezimal 

Belegung 






BASIC-Text 

79 


121 



CHRGOT-Routine 

7A - 

7B 

122 

- 

123 

Programmzeiger 

8B - 

8E 

139 

- 

143 

letzter RND-Wert 

90 


144 



Statuswert ST 

91 


145 



Merker für STOP-Taste 

92 


146 



Zeitkonstante für Band 

93 


147 



Merker für L0AD:$00 oder VERIFY:$01 

94 


148 



Merker bei lEC-Ausgabe 

95 


149 



Ausgabepuffer für lEC-Bus 

96 


150 



Merker für EOT vom Band empfangen 

97 


151 



Zwischenspeicher für Register 

98 


152 



Anzahl der offenen Dateien 

99 


153 



aktuelles Eingabegerät 

9A 


154 



aktuelles Ausgabegerät 

9B 


155 



Parität für Band 

9C 


156 



Merker für Byte empfangen 

9D 


157 



Merker für Direkt-Modus:$80, Pro¬ 






gramm: $00 

9E 


158 



Band Pass 1 Prüfsumme 

9F 


159 



Band Pass 2 Fehlerkorrektur 

AO - 

A2 

160 

- 

162 

Uhr (TI) 

A3 


163 



Bitzähler für serielle Ausgabe 

A4 


164 



Zähler für Band 

A5 


165 



Zähler für Band schreiben 

A6 


166 



Zeiger in Bandpuffer 

A7 - 

A8 

167 

- 

171 

Arbeitsspeicher für Bandein/ausgabe 

AC - 

AD 

172 

- 

173 

Zeiger für Bandpuffer und Scrolling 

AE - 

AE 

174 

- 

175 

Zeiger auf Programmende bei LOAD/ 






SAVE 

BO - 

Bl 

176 

- 

177 

Zeitkonstanten für Band-Timing 

B2 - 

B3 

178 

- 

179 

Zeiger auf Bandpuffer 

B4 


180 



Bitzähler für Band 

B5 


181 



nächstes Bit für RS 232 

B6 


182 



Puffer für auszugebendes Byte 

B7 


183 



Länge des Dateinamens 

B8 


184 



aktuelle logische Dateinummer 

B9 


185 



aktuelle Sekundäradresse 

BA 


186 



aktuelle Gerätenummer 

BB - 

BC 

187 

- 

188 

Zeiger auf Dateinamen 

BD 


189 



serielle Ein/Ausgabe 

BE 


190 



Passzähler für Band 

BE 


191 



Puffer für serielle Ausgabe 

CO 


192 



Merker für Bandmotor 

CI - 

C2 

193 

- 

194 

Startadresse für Ein/Ausgabe vom 






Bildschirm 

C3 - 

C4 

195 

- 

196 

Endadresse für Ein/Ausgabe vom 






BiIdschirm 

C5 


197 



Nummer der gedrückten Taste, 
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Hexadez. 

Dezima1 

Belegung 





64:keine Taste 

C6 


198 


Anzahl der gültigen Zeichen im 
Tastaturpuffer 

C7 


199 


Merker für RVS-Modus 

C8 


200 


Zeilenende für Eingabe 

C9 


201 


Cursorzeile für Eingabe 

CA 


202 


Cursorspalte für Eingabe 

CB 


203 


gedrückte Taste, 64:keine Taste 

CC 


204 


Merker für Cursor, 0:Cursor ein, 
l:Cursor aus 

CD 


205 


Zähler für Cursor blinken 

CE 


206 


Zeichen unter dem Cursor 

CF 


207 


Merker für Cursor, l:Ein-Phase, 

0:Au s-Phase 

DO 


208 


Merker für Eingabe von Tastatur 
oder Bi Idschirm 

Dl - 

D2 

209 - 

210 

Zeiger auf Start der aktuellen 

Bi Idschirmzeile 

D3 


211 


Cursorspal te. 

D4 


212 


Merker für Hochkommamodus 

D5 


213 


Länge der Bildschirmzeile 

D6 


214 


Cursorzeile 

D7 


215 


für verschiedene Zwecke 

D8 


216 


Anzahl der Inserts 

D9 - 

F2 

217 - 

242 

MSB der Bildschirmzeilenanfänge 

F3 - 

F4 

243 - 

244 

Zeiger in Farb-RAM 

F5 - 

F6 

245 - 

246 

Zeiger auf Tastatur-Dekodiertabelle 

F7 - 

F8 

247 - 

248 

Zeiger auf RS 232 Eingabepuffer 

F9 - 

FA 

249 - 

250 

Zeiger auf RS 232 Ausgabepuffer 

FB - 

FE 

251 - 

254 

f re i 


Hexadez. Dezimal Belegung 


OOFF 

- OlOA 

255 - 

266 

Puffer für Umwandlung Fließkomma 
nach ASCII 

0100 

- 013E 

256 - 

318 

Speicher für Korrektur bei Band- 
eingabe 

0100 

- OlFF 

256 - 

511 

Prozessor Stack 

0200 

- 0258 

512 - 

600 

BASIC-Eingabepuffer 

0259 

- 0262 

601 - 

610 

Tabelle der logischen Dateinummern 

0263 

- 026C 

611 - 

620 

Tabelle der Gerätenummern 

026D 

- 0276 

621 - 

630 

Tabelle der Sekundäradresse 

0277 

- 0280 

631 - 

640 

T as taturpuf fer 

0281 

- 0282 

641 - 

642 

Start des BASIC-RAM 

0283 

- 0284 

643 - 

644 

Ende des BASIC-RAM 
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Dezima1 

Be legung 

0285 


645 



Timeout-Merker für lEO-Bus 

0286 


646 



aktuelle Farbe 

0287 


647 



Farbe unter dem Oursor 

0288 


648 



High-Byte Video-RAM 

0289 


649 



Fänge des Tastaturpuffers 

028A 


650 



Merker für Repeatfunktion aller 
Tasten 

028B 


651 



Zähler für Repeatgeschwindigkeit 

0280 


652 



Zähler für Repeatverzögerung 

028D 


653 



Merker für Shift, Oommodore und 
OTRF(Bit 0,1 und 2) 

028E 


654 



wie $028D 

028F 

- 0290 

655 

- 

656 

Vektor für Tastatur-Dekodierung 

0291 


657 



Merker für SHIFT/Oommodore ge¬ 
sperrt 

0292 


658 



Merker für Scrollen 

0293 


659 



RS 232 Kontrollwort 

0294 


660 



RS 232 Befehlswort 

0295 

- 0296 

661 

- 

662 

Bit-Timing 

0297 


663 



RS 232 Status 

0298 

- 029A 

664 

- 

666 

RS 232 Baud-Rate 

029B 


667 



Zeiger auf empfangenes Byte RS 232 

0290 


668 



Zeiger auf Input von RS 232 

029D 


669 



Zeiger auf zu übertragendes Byte 

RS 232 

029E 


670 



Zeiger auf Ausgabe RS 232 

029E 

- 02A0 

671 

“ 

672 

Speicher für IRQ während Bandbe¬ 
trieb 

02A1 


673 



CIA 2 NMI-Merker 

02A2 


674 



CIA 1 Timer A 

02A3 


675 



CIA 1 Interrupt-Merker 

02 A4 


676 



CIA 1 Merker für Timer A 

02A5 


677 



aktuelle Bildschirmzeile 

02A6 


678 



Merker für PAF- (1) oder NTSC- 
Version (0) 

0200 

- 02EE 

704 

- 

766 

Platz für Sprite (Block 11) 

0300 

- 0301 

768 

- 

769 

$E38B Vektor für BASIC-Warmstart 

0302 

- 0303 

770 

- 

771 

$A483 Vektor für Eingabe einer 

Ze i le 

0304 

- 0305 

772 

- 

773 

$A57C Vektor für Umwandlung in 
Interpreterkode 

0306 

- 0307 

774 

— 

775 

$A71A Vektor für Umwandlung in 
Klartext (FIST) 

0308 

- 0309 

776 

— 

777 

$A7E4 Vektor für BASIC-Befehls- 
adresse holen 

030A 

- 030B 

778 

“ 

779 

$AEB6 Vektor für Ausdruck auswer¬ 
ten 

0300 


780 



Akku für SYS-Befehl 
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Hexadez. 

Dezimal 

Bedeutung 


030D 



781 


X-Register für SYS-Befehl 

030E 



782 


Y-Register für SYS-Befehl 

030F 



783 


Status-Register 

für SYS-Befehl 

0310 



784 


$40 JMP-Befehl für USR-Funktion 

0311 

- 

0312 

785 - 

786 

USR-Vektor 


0314 

- 

0315 

788 - 

789 

IRQ-Vektor 


0316 

- 

0317 

790 - 

791 

BRK-Vektor 


0318 

- 

0319 

792 - 

793 

NMI-Vektor 


031A 

- 

031B 

794 - 

795 

OPEN-Vektor 


0310 

- 

031D 

796 - 

797 

CLOSE-Vektor 


031E 

- 

031F 

798 - 

799 

CHKIN-Vektor 


0320 

- 

0321 

800 - 

801 

CKOUT-Vektor 


0322 

- 

0323 

803 - 

803 

CLRCH-Vektor 


0324 

- 

0325 

804 - 

805 

INPUT-Vektor 


0326 

- 

0327 

806 - 

807 

OUTPUT-Vektor 


0328 

- 

0329 

808 - 

809 

STOP-Vektor 


032A 

- 

032B 

810 - 

811 

GET-Vektor 


0320 

- 

032D 

812 - 

813 

CLALL-Vektor 


032E 

- 

032F 

814 - 

815 

WarmStart-Vektor 


0330 

- 

0331 

816 - 

817 

LOAD-Vektor 


0322 

- 

0333 

818 - 

819 

SAVE-Vektor 


0330 

- 

03FB 

828 - 

1019 

Bandpuffer 


0340 

- 

037E 

832 - 

894 

Platz für Sprite 

(Block 13) 

0380 

- 

03BE 

896 - 

958 

Platz für Sprite 

(Block 14) 

0300 

- 

03FE 

960 - 

1022 

Platz für Sprite 

(Block 15) 

Raum 

für Notizen: 
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5.1.2 Speicheraufteilung 


Durch POKE l,x lassen sich beim 64er verschiedene Spei¬ 
cherzustände erreichen, die wir im folgenden an Abbildun¬ 
gen aufzeigen wollen. Da sich die Anzahl der Möglichkeiten 
potenzieren würde, wenn man die verschiedenen Speicherzu¬ 
stände für den VIC mitberücksichtigt, werden wir diese 
hier aussparen. In Kapitel 4 wurde z.B. schon auf die 
Möglichkeit hingewiesen das Bildschirm-RAM und den Zei¬ 
chengenerator zu verlegen. 

Durch Schraffuren wurde jeweils kenntlich gemacht, inwie¬ 
weit man bei den einzelnen Modi lesend oder schreibend auf 
den Speicher zugreifen kann. 

Abkürzungen: 


Abk. 

Proze ssor-Port 

hauptsächliche 

Verwendung 

CHAREN 

Bit 

2 

Auslesen des Character- 
Generators 

HI RAM 

Bit 

1 

Ausblenden von 
und Basic-ROM 

KERNAL- 

LORAM 

Bit 

0 

Ausblenden des 

Basic-ROM's 


Raum für Notizen: 
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; Einschaltbelegung 

cHAREN=i; hT^=i; loräm=i 


Bild 5.1.2-1 
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Bild 5. 1.2-2 : Basic-ROM ausblenden 

CHARE' N = 1; HIRÄM=1; L0RAM=0 
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Bild 5.1.2-3 : Basic- und KERNAL-ROM ausblenden 
CHAREN=1; HIRAM=0; L0RAM=1 
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Bild 5.1.2-4 


nur R AM 

CHAR 'EN = 1; HIRAM=0; L0RAM'=0 
oder CHAREN=0; HT^=0 ; LÜRÄM=0 













































252 


Kapitel 5 



Bild 5.1.2-5 : Zeichengenerator lesen 

CHAREN=0; HIRAM=1; L0RAM=1 
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Bild 5.1.2-6 : Zeichengenerator lesen und Basic-ROM 
a usschaIten 

CHAREN=0; HIRAM=1; L0RAM=0 






















254 


Kapitel 5 



Bild 5.1.2-7 : nur RAM außer Zeichengenerator 


CHAREN=0; HIRAM=0; L0RAM=1 
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5.1.3 VIC-Register, Sprites und Grafikspeicher 


In der folgenden Übersicht sind alle Register des Video- 
Prozessors (die auch die Sprite-Steuerung beinhalten) mit 
einer Kurzbezeichnung dargestellt. Gegebenenfalls sind 
auch die Funktionen von einzelnen Bits erläutert. Den Ab¬ 
schluß bilden ein paar Darstellungen über die Speicherung 
von Grafiken. 

Mit bezeichnete Register sind für alle Sprites zu¬ 
ständig: je Sprite ein Bit, korrespondierend in den Num¬ 
mern (Sprite 0 - Bit 0,...,Sprite 7 - Bit 7) 


53248 


Basisadresse V 

53248 


Sprite 0 

X-Position 

53249, 

V + 1 

Sprite 0 

Y-Position 

53250, 

V+2 

Sprite 1 

X-Position 

53251 , 

V+3 

Sprite 1 

Y-Pos i tion 

53252, 

V+4 

Sprite 2 

X-Position 

53253, 

V + 5 

Sprite 2 

Y-Position 

53254, 

V + 6 

Sprite 3 

X-Position 

53255, 

V+7 

Sprite 3 

Y-Position 

53256, 

V + 8 

Sprite 4 

X-Position 

53257, 

V+9 

Sprite 4 

Y-Position 

53258, 

V + 10 

Sprite 5 

X-Position 

53259, 

V + 11 

Sprite 5 

Y-Position 

53260, 

V + 12 

Sprite 6 

X-Position 

53261 , 

V + 13 

Sprite 6 

Y-Position 

53262, 

V + 14 

Sprite 7 

X-Position 

53263, 

V + 15 

Sprite 7 

Y-Position 

53264, 

V + 16 

* Sprite 0- 

7 MSB der X-Position 

53265, 

V + 17 

Steuerregister 1 



Bits 0-2: 

Weiches Abrollen (Y-Richtung) 


Bit 3: 24/25 Zeilenwahl (24 Zeilen: 0) 

Bit 4: Bildschirm ausschalten(=0) 

Bit 5: Bit-Map-Modus einschalten (=1) 

Bit 6: Erweiterter Hintergrundmodus(=1) 

Bit 7: Rasterwertregister (MSB) 



256 


Kapitel 5 


53266, V+18 
53267, V+19 
53268, V+20 
53269, V+21 * 

53270, V+22 

53271, V+23 
53272, V+24 

53273, V+25 


53274, V+26 


53275, 

V + 27 

* 

53276, 

V + 28 

* 

53277, 

V + 29 

* 

53278, 

V+30 

* 

53279, 

V + 31 

* 

53280, 

V+32 



Rasterwertregister (Bits 0-7) 

Lichtgriffel (X-Richtung) 

Lichtgriffel (Y-Richtung) 

Sprites ein/aus (l=ein) 

Steuerregister 2 

Bits 0-2: Weiches Abrollen (X-Richtung) 

Bit 3: 39/40 Spaltenwahl (40 Spalten:!) 
Bit 4: Vielfarbenmodus (=1) 

Bits 5-7: nicht genutzt 

Sprite-VergroßerungsregiSter (X-Richtung) 

Adress-Kontrollregister 
Bit 0: nicht benutzt 
Bits 1-3: Adresse des Zeichengenerators 
bzw. Bit-Map 

Bits 4-7: Adresse des Bildschirmspeichers 

Unterbrechungs-Flaggenregister 
Bit 0: Rastervergleich 
Bit 1: Zusammenstoß Sprite - Hinter¬ 
grund 

Bit 2: Zusammenstoß Sprite - Sprite 
Bit 3: Unterbrechung durch Lichtgriffel 
Bits 4-6: nicht benutzt 
Bit 7: eines der Bits 0-3 gesetzt 

Unterbrechungs-Maskenregister 
Bit 0: Rastervergleich (l=ein) 

Bit 1: Zusammenstoß Sprite-Hintergrund 
Bit 2: Zusammenstoß Sprite-Sprite 
Bit 3: Unterbrechung durch Lichtgriffel 
Bits 4-7: nicht benutzt 

Prioritätsregister Sprite - Hintergrund 
(l=Sprite) 

Sprite-Multi-Color-Steuerregister 
(1=MCM) 

Sprite-VergrößerungsregiSter (Y-Richtung) 
Kollisionsregister Sprite - Sprite 
Kollisionsregister Sprite - Hintergrund 

Rahmenfarbe 

1- schwarz 

2- weiss 

3- rot 

4- purpur 

5- grün 

6- blau 

7- gelb 
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8- orange 

9- braun 

10- hellrot 

11- dunkelgrau 

12- mittelgrau 

13- hellgrün 

14- hellblau 

15- hellgrau 

53281, V+33 Hintergrundfarbe 1 (Farben siehe 53280) 

53282, V'+34 Hintergrundfarbe 2 (Farben siehe 53280) 

53283, V+35 Hintergrundfarbe 2 (Farben siehe 53280) 

53284, V+36 Hintergrundfarbe 3 (Farben siehe 53280) 

53285, V + 37 Sprite-Vie1 färbenregister 0 

53286, V + 38 Sprite-VieIfarbenregister 1 

53287, V+39 Sprite 0-Farbregister (Farben siehe 53280) 

53288, V+40 Sprite 1-Farbregister (Farben siehe 53280) 

53289, V+41 Sprite 2-Farbregister (Farben siehe 53280) 

53290, V+42 Sprite 3-Farbregister (Farben siehe 53280) 

53291, V+43 Sprite 4-Farbregister (Farben siehe 53280) 

53292, V+44 Sprite 5-Farbregister (Farben siehe 53280) 

53293, V+45 Sprite 6-Farbregister (Farben siehe 53280) 

53294, V+46 Sprite 7-Farbregister (Farben siehe 53280) 


Raum für Notizen: 



































Byte 3944 


Byte 3945 


Byte 3946 


Byte 3947 


Byte 394 


Byte 3949 


Byte 3950 


P (110,100) 


s 


NormaJmodus 




Graukmodus 


Bild 5.1.3-3 


Normalmodus und Grafikmodus. Im Normalmodus 
steuert das Bildschirm-RAM (1 Byte - 1 
Zeichen) den Zeichengenerator an, der 
- über den Video-Prozessor - acht Byte (8x8 
Punkte) an den Bildschirm weitergibt. 
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5.1.4 Sound-Register 


Analog der Übersicht 
hier die Register des 
Aufstellung von einer 
gehörigen POKE-Werte. 


der VIC-Register stellen wir Ihnen 
Sound-Chips dar. Ergänzt wird diese 
Tabelle der Frequenzen und der zu- 


5.1.4.1 Registerübersicht 


54272 


Basisadresse SI 

54272- 

■54296 

SID-Chip Steuerregister 



schrieben werden) 

54272- 

•54278 

Stimme 1 

54272 

SI 

Frequenz (Low Byte) 

54273 

SI + 1 

Frequenz (High Byte) 

54274 

SI + 2 

Impulsbreite (Low Byte) 

54275 

SI-f3 

Impulsbreite (High Byte) 

54276 

SI-f4 

KlangkontrolIregister 


Bit 0: Key-Bit (Ton ein/aus) 

Bit 1: Synchronisation mit Stimme 3 

Bit 2: Ringmodulation mit Stimme 3 

Bit 3: Testbit (im Normalfall unbenutzt) 

Bit 4: Dreieckswelle 

Bit 5: Sägezahnwelle 

Bit 6: Rechteckwelle 

Bit 7: Rauschen 


54277 SI+5 


54278 SI+6 


Steuerregister für 
Bits 0-3: Wert für 
Bits 4-7: Wert für 


Einsatz und Ausklingen 
Ausklingen (Decay) 
Toneinsatz (Attack) 


Steuerregister 
Bits 0-3: Wert 
Bits 4-7: Wert 


für Halten und Nachklingen 
für Nachklingen (Release) 
für Halten (Sustain) 
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54279-54285 Stimme 2 

54279 SI+7 Frequenz (Low Byte) 

54280 SI+8 Frequenz (High Byte) 

54281 SI+9 Impulsbreite (Low Byte) 

54282 SI+10 Impulsbreite (High Byte) 

54283 SI+11 KlangkontrolIreqister 

Bit 0: Key-Bit (Ton ein/aus) 

Bit 1: Synchronisation mit Stimme 1 

Bit 2: Ringmodulation mit Stimme 1 

Bit 3: Testbit (im Normalfall unbenutzt) 

Bit 4: Dreieckswelle 

Bit 5: Sägezahnwelle 

Bit 6: Rechteckwelle 

Bit 7: Rauschen 

54284 SI+12 Steuerregister für Einsatz und Ausklingen 

Bits 0-3: Wert für Ausklingen (Decay) 

Bits 4-7: Wert für Toneinsatz (Attack) 

54285 SI+13 Steuerregister für Halten und Nachklingen 

Bits 0-3: Wert für Nachklingen (Release) 
Bits 4-7: Wert für Halten (Sustain) 


54286-54292 Stimme 3 

54286 SI+14 Frequenz (Low Byte) 

54287 SI+15 Frequenz (High Byte) 

54288 SI+16 Impulsbreite (Low Byte) 

54289 SI+17 Impulsbreite (High Byte) 

54290 SI+18 KlangkontrolIregister 

Bit 0: Key-Bit (Ton ein/aus) 

Bit 1: Synchronisation mit Stimme 2 

Bit 2: Ringmodulation mit Stimme 2 

Bit 3: Testbit (im Normalfall unbenutzt) 

Bit 4: Dreieckswelle 

Bit 5: Sägezahnwelle 

Bit 6: Rechteckwelle 

Bit 7: Rauschen 

54291 SI+19 Steuerregister für Einsatz und Ausklingen 

Bits 0-3: Wert für Ausklingen (Decay) 

Bits 4-7: Wert für Toneinsatz (Attack) 

54292 SI+20 Steuerregister für Halten und Nachklingen 

Bits 0-3: Wert für Nachklingen (Release) 
Bits 4-7: Wert für Halten (Sustain) 
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54293-54296 Klangfilterfunktionen 

54293 SI+21 Cutoff-Frequenz des Filters (Low Byte) 

54294 SI + 22 Cutof f-Frequenz des Filters (Fligh Byte) 

54295 SI + 23 Fi11er/Resonanz-Kontro11 register (l=ein) 




Bit 

0: 

Filter für Stimme 1 



Bit 

1: 

Filter für Stimme 2 



Bit 

2: 

Filter für Stimme 3 



Bit 

3: 

Filter für externes Signal 



Bits 4- 

-7: 

Resonanzwert 

54296 

SI + 24 

Modus- 

und Lautstärke 



Bits 0- 

-3: 

Lautstärkenkontrollregister 



Bit 

4: 

Tiefpaßf i Iter 



Bit 

5: 

BandpaßfiIter 



Bit 

6: 

HochpaßfiIter 



Bit 

7: 

Stimme 3 ein/aus (l=aus) 

Register, die 

nur gelesen 

werden können 

54297 

SI + 25 

Paddle 

X- 

Wert 

54298 

SI + 26 

Paddle 

Y- 

Wert 


54299 SI+27 Momentaner Digitalwert von Stimme 3 

54300 SI+28 Hüllkurvenregister (Stimme 3) 


5.1.4.2 Frequenztabelle 


Vielleicht werden Sie sich wundern, daß die hier abgebil¬ 
deten Daten mit anderen Tabellen - z.B. der Tabelle im 
Handbuch - nicht übereinstimmen. Welche Tabelle ist nun 
die richtige? Auch andere Tabellen sind richtig, aber für 
Fernseher mit NTSC-Norm. Wieso? 

Alle benötigten Frequenzen (auch die zur Steuerung des 
Fernsehbildes) werden von einem einzigen Quarz abgeleitet. 
Durch die verschiedenen Fersehnormen befinden sich auch 
unterschiedliche Oszillatoren in den 64ern, je nach Be¬ 
stimmungsland. 

Die hier vorgestellte Tabelle wurde aufgrund einer ausge¬ 
messenen Vergleichsschwingung erstellt. Die meisten Tabel¬ 
len stellen Übersetzungen der amerikanischen Literatur und 
damit auch der dort gebräuchlichen Werte dar. Der Faktor 
zwischen POKE-Wert und Frequenz ist 0.0587. 
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Frequenz¬ 

POKE 

-Werte 

Frequenz 

Ton 

parameter 

High 

Low 

(Hz) 


277 

1 

21 

16 

C2 

294 

1 

38 

17 

CIS2 

312 

1 

56 

18 

D2 

331 

1 

75 

19 

DIS2 

351 

1 

95 

21 

E2 

372 

1 

116 

22 

F2 

394 

1 

138 

23 

FIS2 

417 

1 

161 

24 

02 

442 

1 

186 

26 

GIS2 

468 

1 

212 

27 

A2 

496 

1 

240 

29 

B2 

526 

2 

14 

31 

H2 

557 

2 

45 

33 

01 

590 

2 

78 

35 

CISl 

625 

2 

113 

37 

Dl 

662 

2 

150 

39 

DISl 

701 

2 

189 

41 

El 

743 

2 

231 

44 

Fl 

787 

3 

19 

46 

FISl 

834 

3 

66 

49 

Gl 

884 

3 

116 

52 

GISl 

937 

3 

169 

55 

Al 

993 

3 

225 

58 

Bl 

1052 

4 

28 

62 

Hl 

1115 

4 

91 

65 

C 

1181 

4 

157 

69 

CIS 

1251 

4 

227 

73 

D 

1325 

5 

45 

78 

DIS 

1404 

5 

124 

82 

E 

1488 

5 

208 

87 

F 

1576 

6 

40 

93 

FIS 

1670 

6 

134 

98 

G 

1769 

6 

233 

104 

GIS 

1874 

7 

82 

110 

A 

1985 

7 

193 

117 

B 

2103 

8 

55 

123 

H 

2228 

8 

180 

131 

c 

2361 

9 

57 

139 

eis 

2501 

9 

197 

147 

d 

2650 

10 

90 

156 

dis 

2808 

10 

248 

165 

e 

2975 

11 

159 

175 

f 

3152 

12 

80 

185 

f is 

3339 

13 

11 

196 

g 

3538 

13 

210 

208 

gis 

3748 

14 

164 

220 

a 

3971 

15 

131 

233 

b 

4207 

16 

111 

247 

h 


263 



264 


Frequenz- 

POKE 

-Werte 

Frequenz 

Ton 

parameter 

High 

Low 

(Hz) 


4457 

17 

105 

262 

cl 

4722 

18 

114 

277 

c i sl 

5003 

19 

139 

294 

dl 

5300 

20 

180 

311 

d i sl 

5615 

21 

239 

330 

el 

5949 

23 

61 

349 

fl 

6303 

24 

159 

370 

f isl 

6678 

■ 26 

22 

392 

gl 

7075 

27 

163 

415 

gisl 

7496 

29 

72 

440 

al 

7942 

31 

6 

466 

bl 

8414 

32 

222 

494 

hl 

8914 

34 

210 

523 

c2 

9444 

36 

228 

554 

c i s2 

10006 

39 

22 

587 

d2 

10601 

41 

105 

622 

d i s2 

11231 

43 

223 

659 

e2 

11899 

46 

123 

698 

f2 

12607 

49 

63 

740 

f is2 

13357 

52 

45 

784 

g2 

14151 

55 

71 

831 

gis2 

14992 

58 

144 

880 

a2 

15884 

62 

12 

932 

b2 

16829 

65 

189 

988 

h2 

17830 

69 

166 

1047 

c3 

18890 

73 

202 

1109 

c i s3 

20013 

78 

45 

1175 

d3 

21203 

82 

211 

1245 

d i s3 

22464 

87 

192 

1319 

e3 

23800 

92 

248 

1397 

f3 

25215 

98 

127 

1480 

f is3 

26714 

104 

90 

1568 

g3 

28302 

110 

142 

1661 

gis3 

29985 

117 

33 

1760 

a3 

31768 

124 

24 

1865 

b3 

33657 

131 

121 

1976 

h3 

35658 

139 

74 

2093 

c4 

37778 

147 

146 

2218 

c i s4 

40024 

156 

88 

2349 

d4 

42404 

165 

164 

2489 

d i s4 

44925 

175 

125 

2637 

e4 

47596 

185 

236 

2794 

f4 

50426 

196 

250 

2960 

f is4 

53425 

208 

177 

3136 

g4 

56602 

221 

26 

3323 

gis4 

59968 

234 

64 

3520 

a4 

63534 

248 

46 

3729 

b4 

67312 

262 

240 

3951 

h4 
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5.1.5 CIA-Register (Complex Interface Adapter) 


Weniger bekannt als die l\(M)ister von VIC und SID sind die 
Register der ClA's, obwohl sie den anderen an Leistungs¬ 
fähigkeit nicht nachstehen. Ihre Wirkung läßt sich nicht 
in Farben und Lautstärke ausdrücken, für die interne 
Steuerung sind sie aber ein notwendiges Muß. 

Zunächst stellen wir eine allgemeine Übersicht der 
Adressen vor, anschließend folgt eine genaue Beschreibung 
der Register eines Complex Interfaces Adapters. 


5.1.5.1 Adressenübersicht 


56320-56335 CIA 1 

56320 Datenregister Port A 

Tastatur: 

Bits 0-7: SpaItenansteuerung der Matrix 

Anschlüsse an CP2 (Control-Port 2): 

Bits 0-3: Richtung (Joystick) 

Bit 4: Feuerknopf (Joystick) 

Bits 2/3: Paddle-Feuerknöpfe 

Analogschalter: 

Bits 6/7: Paddlesatzauswah1 CP2/CP1 

56321 Datenregister Port B 

Tastatur: 

Bits 0-7: Zeilenabfrage der Matrix 

Anschlüsse an CPl: 

Bits 0-3: Richtung (Joystick) 

Bit 4: Feuerknopf (Joystick) 

Bits 2/3: Paddle-Feuerknöpfe 
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56322 

56323 

56324-56327 

56324 

56325 

56326 

56327 

56238-56331 

56328 

56329 

56330 

56331 

56332 

56333 

56334 

56335 


56576-56831 CIA 2 

56576 Datenregister Port A 

Bits 0/1: Segmentwahl des VIC-II-Chip 

00 Segment 3 (49152 - 65535) 
01 Segment 2 (32768 - 49151) 

10 Segment 1 (16384 - 32767) 

11 Segment 0 (00000 - 16383) 
Bit 2: RS 232 Senderdaten-Ausgabe (TxD) 
Bit 3: ATN-Ausgangssignal 

Bit 4: Serieller Bus, Ausgabe Takt 
Bit 5: Serieller Bus, Ausgabe Daten 
Bit 6: Serieller Bus, Eingabe Takt 
Bit 7: Serieller Bus, Eingabe Daten 

56577 Datenregister Port B 
Bit 0: RS 232 Daten empfangen (RxD) 

Bit 1: RS 232 Sendeaufforderung (RTS) 

Bit 2: RS 232 Datenterminal bereit (DTR) 
Bit 3: RS 232 Ringindikator (RI) 

Bit 4: RS 232 Träger entdeckt (DCD) 

Bit 6: RS 232 Bereit zum senden (CTS) 

Bit 7: RS 232 Datensatz bereit (DSR) 

Datenrichtungsregister Port A 
Datenrichtungsregister Port B 
Timer 

Timer A (Low Byte) 

Timer A (High Byte) 

Timer A (Low Byte) 

Timer B (High Byte) 


56378 

56379 

56380-56383 

56380 

56381 

56382 

56383 


Datenrichtungsregister Port A 
Datenrichtungsregister Port B 
Timer 

Timer A (Low Byte) (für IRQ-Freq.) 
Timer A (High Byte) (für IRQ-Freq.) 
Timer A (Low Byte) 

Timer B (High Byte) 

Realzeituhr 
Zehntelsekunden 
Sekunden (BCD) 

Minuten (BCD) 

Bits 0-6: Stunden (BCD) 

Bit 7: AM/PM (Anzeige vorm./nachm.) 
Serieller E/A-Puffer (synchron) 
Unterbrechungs-Kontrollregister 
Steuerregister A 
Steuerregister B 
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56384-56387 
56384 
5638 5 
56 386 
5638 7 


56388 

56389 

56390 

56391 


Realzeit uhr 
Zehnte Isekunden 
Sekunden 
Minuten 

Bits 0-6: Stunden 

Bit 7: AM/PM (Anzeige vorm./nachm.) 

Serieller E/A-Puffer (synchron) 

Unterbrechungs-Kon troll regiSter 
Steuerregister A 
Steuerregister B 


5.1.5.2 Registerbeschreibung 


Mit dem CIA können vielfältige Ein-/ Ausgabe-Operationen 
durchgeführt werden. Der Baustein enthält zwei parallele 
8-Bit-Schnittste1 len, eine serielle Schnittstelle, zwei 
hintereinander schaltbare 16-Bit-Timer und eine 24-Stun- 
den-Uhr und diverse Interrupt-Möglichkeiten. 

Jeder CIA besitzt 16 Register; die Basisadresse der 
Register des CIA 1 ist $DC00 (=56320), beim CIA 2 ist sie 
$DD00 (=56576). 


Register 0 PRA Port-Register A 

Durch dieses Register werden die Leitungen 
PAO bis PA7 gesteuert. Beim Auslesen des Re¬ 
gisters (z.B mit PEEK) erhalten Sie den 
Wert, der die Bitkombination der Zustände 
auf den Leitungen darstellt. Beim Beschrei¬ 
ben des Registers (mit POKE) können Sie die 
Leitungen, welche aus Ausgang programmiert 
sind, verändern. 


Register 1 PRB Port-Register B 

Siehe Port-Register A; statt PAO bis PA7 
werden die Leitungen PBO bis PB7 ange¬ 
sprochen. 
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Register 2 


Register 3 


Register 4 
Register 5 


Register 6 
Register 7 


Register 8 


ODRA Data-Direetion-Register A 

Je ein Bit dieses Registers programmiert 
eine der Leitungen PAO bis PA7 auf Ein¬ 
oder Ausgang. Ist das entsprechende Bit = 1 , 
arbeitet die Leitung als Ausgang, sonst als 
Eingang. 


DDRB Data-Direetion-Register B 
Vergleiche ODRA. 


TAL Timer A Low- Byte 
TAH Timer A High-Byte 

Der Timer ist ein Register, das automatisch 
von einem vorgegebenen Startwert bis null 
herunterzählt. Je nach Betriebsart wird an¬ 
schließend der Startwert neu geladen, oder/ 
und der Ablauf des Timers wird signalisiert. 

Den momentanen Wert des Timers können Sie 
durch Lesen von TAL und TAH erfragen. Ein 
Schreibzugriff auf die beiden Register setzt 
den neuen Startwert, der erst geladen wird, 
wenn der momentane Zählvorgang abgeschlossen 
ist. Wollen Sie während es Zählvorgangs ei¬ 
nen neuen Wert in den Timer hineinschreiben, 
so müssen Sie zusätzlich noch das Bit 4 von 
Register 14 setzen. 


TBL Timer B Low- Byte 

TBH Timer B High-Byte 

Vergleiche Register 4 und Register 5 


TODIOS Time of Day (l/lO Sek.) 

Zehntelsekunden der Echtzeituhr 

Beim Schreiben oder Lesen des Stundenregi¬ 
sters wird ein Auffangregister (Latch) akti¬ 
viert, das durch Lesen oder Schreiben des 
Zehntelsekunden-Registers wieder freigegeben 
wird. 


Beim Lesen der TOD-Register (8-11) wird 
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Register 


Re gis ter 


Re gis ter 


Register 


immer die Uhrzeit gelesen, beim Schreiben 
wird in Abängigkeit von Bit 7 im Register 15 
die Uhrzeit oder die Alarmzeit gesetzt. 

9 TODSEC Time of Day (Sekunden) 

Sekunden der Uhr im BCD-Format, d.h. Bit 0-3 
enthalten die Sekunden, Bit 4-7 die Zehner- 
Sekundenstelle. Z.B. entspricht 45 Sekunden 
der Wert $45 = 69 (POKE-Wert). 


10 TODMIN Time of Day (Minuten) 

Minuten der Uhr im BCD-Format (siehe Reg. 9) 


11 TODHR Time of Day (Stunden) 

Stunden der Uhr. Bit 0-3 enthalten die Ei¬ 
nerstunden, Bit 4 die Zehnerstunde und Bit 7 
das Vormittags-/Nachmittags-Flag (1 = nach¬ 
mittags). 12 Uhr mittags aber kann als $80 
oder $12 dargestellt werden. 


12 SDR Serial Data Register 

Dieses Register wirkt auf die Anschlüsse SP 
und CNT. Es ist ein Schieberegister zum 
Senden oder Empfangen von seriellen Daten. 
Die Datenrichtung wird durch Bit 6 von 
Register 14 bestimmt. 

Eingabemodus: Ein Bit wird in das Schiebe¬ 
register übernommen, wenn am Anschluß CNT 
eine steigende Flanke auftritt. Nachdem acht 
Bit übernommen wurden, wird das entsprechen¬ 
de Bit im Register 13 (ICR) gesetzt. 

Ausgabemodus: Die Schieberate wird durch den 
Timer A bestimmt. Die Schiebeimpulse er¬ 
scheinen am Anschluß CNT. Ist das Schiebere¬ 
gister leer, so wird ebenfalls das Bit im 
Interrupt-KontrolIregister gesetzt, es sei 
denn, daß vor Beendigung des Schiebevorgangs 
ein neuer Wert in das Schieberegister ge¬ 
schrieben wurde. 
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Register 13 ICR Interrupt-KontrolIregister 

Unter dieser Registeradresse werden je nach 
Zugriffsart zwei verschiedene Register 
angesprochen. Ein Lesezugriff wirkt auf das 
Interrupt-Datenregister, ein Schreibvorgang 
ändert das Interrupt-Maskenregister. Beim 
Datenregister haben die einzelnen Bits 
folgende Bedeutungen: 

Bit 0 - Timer A ist abgelaufen 

Bit 1 - Timer B ist abgelaufen 

Bit 2 - Uhrzeit ist gleich Alarmzeit 
Bit 3 - Schieberegister voll bzw. leer 
Bit 4 - am Anschluß FLAG trat eine fallende 
Flanke auf 

Bit 5 - keine Bedeutung (immer 0) 

Bit 6 - keine Bedeutung (immer 0) 

Bit 7 - wenigstens eins der Bits 0 bis 4 
sind im Datenregister und Masken¬ 
register gesetzt. 

Wird Bit 7 gesetzt, geht gleichze itigder 
Anschluß IRQ des CIA auf low. 

Mit dem Maskenregister, das fünf Bit (0-4) 
beinhaltet, kann man einzelne Interrupts 
verhindern, indem man das entsprechende Bit 
(s.o.) löscht. Dieses Register kann jedoch 
nicht direkt beschrieben werden, sondern man 
kann mit einen POKE-Befehl immer nur Bits 
setzen bzw. löschen. Für jedes zu verän¬ 
dernde Bit müssen Sie im POKE-Wert das ent¬ 
sprechende Bit setzen. Ist dann noch Bit 7 
gesetzt, so werden die Bits gesetzt, ist Bit 
7 gleich 0, so werden sie gelöscht. Durch 
POKEn von 127 werden alle Bits gelöscht. 


Register 14 CRA KontrolIregister A 

Die einzelnen Bits haben folgende Bedeutung: 

Bit 0 - Timer A (O = Stop, 1 = Start) 

Bit 1 - Ein Unterlauf von Timer A wird an 
dem Anschluß PB6 signalisiert. 
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Bit 2 - Ist dieses Bit null, so wird an PB6 
ein kurzer High-Impuls abgegeben, 
wenn Timer A abgelaufen ist und 
Bit 1 von Register 14 gesetzt ist. 
Ist dieses Bit eins, so wird unter 
den gleichen Bedingungen der An¬ 
schluß PB6 in die jeweils andere 
Lage gekippt. 

Bit 3 - Ist dieses Bit null, so lädt Timer A 
nach einem Unterlauf den alten 
Startwert wieder und beginnt erneut 
zu zählen. Ist das Bit gesetzt, so 
hält er einfach an. 

Bit 4 - Timer A wird sofort geladen 

Bit 5 - Ist dieses Bit gleich null, so zählt 
Timer A Systemtaktpulse (Frequenz 
ca. 1 MHz), ist es eins, so zählt 
Timer A steigende Flanken am An¬ 
schluß CNT. 

Bit 6 - Datenrichtung für Schieberegister 
(1 bedeutet: SP ist Ausgang, 

0 bedeutet: SP ist Eingang) 

Bit 7 - Dieses Bit muß gesetzt werden, wenn 
die Echtzeit-Uhr mit 50 Hertz ge¬ 
speist wird. 


Register 15 CRB KontrolIregister B 

Die Bits 0-4 haben eine zu Register 14 völ¬ 
lig analoge Bedeutung, jedoch beziehen sich 
die Angaben jetzt auf Timer B und Anschluß 
PB7. Bit 5 und 6 bestimmen die Quelle der 
Zählimpulse für Timer B entsprechend fol¬ 
gender Tabelle: 


Bit 6 Bit 5 Funktion 


0 

0 

1 

1 


0 Timer B zählt Systemtakte 

1 Timer B zählt steigende 

Flanken am Anschluß CNT 
0 Timer B zählt Unterläufe von 

T i me r A 

1 Timer B zählt Unterläufe von 

Timer A, jedoch nur, wenn der 
Anschluß CNT high ist. 
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Bit 7 dieses Registers dient zur Wahl zwi¬ 
schen Alarm- und Uhrzeit beim Beschreiben 
der Register 8 bis 11. Ist dieses Bit ge¬ 
setzt, so wird die Alarmzeit beschrieben, 
sonst die Uhrzeit. 


Raum für Notizen: 
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5.1.6 Zeichensatz 


Um Ihnen das Erstellen eines eigenen Zeichensatzes zu 
ermöglichen, aber auch um das Auffinden diverser Gra¬ 
fikzeichen zu vereinfachen, ist im folgenden der gesamte 
Zeichensatz Ihres Commodore 64 abgebildet. 

Die angegebenen Zahlen geben den Bildschirmcode (erste 
Zahl) und das erste Byte im Charakter-Generator an. 



$Dei8 




8 $0040 9 $0048 10 $0050 



$0058 



12 $0060 


13 $0068 


14 $0070 


15 $0078 
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52 $D1 Ae 


53 
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204 $D660 



20S $0608 



206 $D670 




208 $D680 
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236 $D760 237 $0768 238 $0770 239 $0778 



240 $0780 


241 $0788 242 $0790 


243 $07« 




248 $D7C0 249 $D7C8 250 $0700 
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276 $08 A0 

277 $D8A8 

278 $08TO 

279 $0888 



280 $D8Ce 281 $D8C8 282 $D8D0 283 $D8D8 




288 $0000 289 $0908 290 $0910 291 $0918 



293 $0928 



292 $0920 


294 $0930 


295 $0938 
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316 $O9E0 317 $D9E8 318 $OgF0 319 $09F8 



320 $OA00 321 $DA08 322 $DA10 323 $DAie 



324 $DA20 325 $DA28 326 $DA30 327 $0A38 



328 $DA40 329 $DA48 330 $DA50 



331 $DA58 



332 $OA60 333 $0A68 334 $DA70 335 $0A78 



■■■■■ 

■■■ 



^^^■bb 


■■■■■ 

■ ■■■■ 






■ ■■■■ 
■■■■■ 

B b 





■■■■■ 

^^■b bbb 




■■ 

■■■■■ 

^^Hb bbb 
^^■b bbb 

^^■b bb 
^^■b bb 

B 

^^Hbb 
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336 $DA8B 337 $DA88 338 $DAg0 339 $DA98 



340 $DAA0 341 $DAA8 342 $DAB0 343 $DAB8 



344 $OAC0 345 $DAC8 346 $OA1>0 347 $DAI>8 



348 $OAE0 349 $0AE8 350 $DAF0 351 $DAF8 











































































































































































384 $DC00 385 $DC08 386 $DC10 387 $DC18 
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404 $DCAe 409 $DCA8 400 $DCB0 407 $DCB8 



408 $DCCe 409 $DCC8 410 $DCO0 411 $DCD8 



412 $OC£0 413 $DCE8 414 $DCF0 415 $DCF8 
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416 $0088 







4 

—t . j 

- 


..t 

^ I 





-1 

hl J't, • 

- 


r 7 I T T 


417 $0088 



418 $0018 



418 $0018 



420 $0028 421 $0028 422 $0038 423 $0038 




428 $0068 429 $0068 438 $0078 431 $0078 



432 $0088 433 $0088 434 $0090 435 $0098 































































Tabellen und Diagramme 


295 


436 $DOAe 437 $DDA8 438 $DOBe 439 $DDB8 



440 $DDC8 441 $DDC8 442 $DDDe 443 $0008 



444 $OOE0 445 $00E8 446 $OOF0 447 $00F8 



448 $OE0e 449 $0€e8 450 $Oei0 451 $0E18 



452 $O£20 453 $0E28 454 $OE30 455 $0E38 
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476 $OEE0 477 $DEE8 


■■ 

■■ 

■■ 

■■ 

■■ 

■■ 

■■ 

■■ 

II 

480 $DF0e 

481 $DF08 


m 

484 $Df20 

485 $DF28 



488 $DF40 

489 $DF48 

■■ ■■ 

■■ ■■ 

■■ ■■ 
■■ ■■ 

■■ ■■ 
■ ■■ ■ 

■■ ■■ 

■■ ■■ 
■■ ■■ 
■ ■■ ■ 

■■ ■■ 

■■ ■■ 

492 $0F6e 

493 $DF68 



478 $DEF0 479 $DEF8 


■■ ■■ 

■■ 

■■ ■■ 


■ ■ ■■ 

BB 

■ ■ ■■ 

BB BB 

■ ■ ■■ 

BB BB 

■ ■ ■■ 

^^■b BB B 

■ ■ ■■ 


■ ■ ■■ 

BB 


482 $DF10 483 $DF18 



486 $DF30 487 $[>F38 


BB BB 


BB BB 


BB BB 


BB BB 


BB BB 


BB BB 


BB BB 


BB BB 



490 $DF50 491 $DF58 


494 $[>F70 495 $(>F78 
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496 $DF80 497 $0F88 498 $DF90 499 tDF98 


500 $DFA0 501 $DFA8 502 $DFB0 503 $DFfö 



504 $DFC0 505 $DFC8 506 $DFD0 507 $DFD8 



508 $DFE0 509 $DFE8 510 $DFFe 511 $DFF8 
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5.2 ROM-Routinen 


Das im ROM abgelegte Betriebssystem des 64er enthält viele 
nützlicje Routinen, mit denen Sie sich das Programmieren 
von eigenen Maschinenroutinen sehr erleichtern können. 

Zwei Typen von ROM-Routinen sind zu unterscheiden. Das 
sind zum einen die Basic-Routinen für Variablenverwaltung, 
Fließkomma-Arithmetik, zur Behandlung von Basic-Fehlerme1- 
dungen und ähnlichem. Diese Routinen werden Sie also vor 
allem dann verwenden, wenn Sie eng mit Basic Zusammenar¬ 
beiten wollen und insbesondere auch Parameter von oder an 
Maschinenprogramme durch Basic-Variablen übergeben wollen. 

Der andere Typ wird durch die sogenannten KERNAL-Routinen 
repräsentiert, welche sich mit der Ein/Ausgabe, mit der 
Bildschirmverwaltung, dem seriellen Bus und anderem be¬ 
schäftigen. Die Parameterübergabe an diese Routinen ist 
wesentlich besser normiert, als bei den Basic-Routinen. 
Das erklärt sich dadurch, daß auf dieses Betriebssystem 
auch dann zugegriffen werden kann und muß, wenn der Basic- 
Interpreter ausgeschaltet ist und eine andere Programmier¬ 
sprache geladen ist oder Sie selbst sich vollkommen von 
Basic lösen und nur die Ein- und Ausgabe mit den vom Be¬ 
triebssystem vorgesehenen Routinen bewerkstelligen wollen. 


5.2.1 KERNAL-Routinen 


Für die Betriebssystem-Routinen des KERNAL existiert eine 
standardisierte Sprungtabe1le, die am Ende des ROM-Berei- 
ches abgelegt ist. Dort sind die Adressen von 39 Betriebs¬ 
system-Routinen festgelegt. Die Verwendung einer Sprung¬ 
tabelle hat den Vorteil, daß Maschinenprogramme, die nur 
diese Sprungtabe1le verwenden, nicht geändert werden brau¬ 
chen, wenn Sie auf einen anderen Commodore-Rechner oder 
auf eine neue Version des Betriebssystems umgeschrieben 
werden sollen. Ein Betriebssystemaufruf gliedert sich 
prinzipiell in folgende Abschnitte: 
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Parameter bereitstellen 

Die notwendigen Angaben werden einer KERNAL-Routine 
meist durch Prozessorregister übermittelt. 

Routine aufrufen 

Grundsätzlich ist dies ein Aufruf mit JSR Adresse. 
Fehler behandeln 

Manche Routinen melden einen Fehlerfall, indem sie 
das Carry-Flag setzen. Diese Fälle beeinflussen den 
logischen Ablauf des Hauptprogramms. 

Ergebnis auswerten 

Eventuell werden in den Prozessorregistern Ergebnis 
Parameter übergeben. 


Die oben erwähnten Fehler treten vor allem bei Ein- 
/Ausgabe-Operationen auf. Wurde der Fehler durch ein 
gesetztes Carry-Flag nach der Rückkehr vom KERNAL- 
Unterprogramm gemeldet, steht die Fehlernummer dann im 
Akkumulator. Folgende Fehlernummern sind möglich: 


FehlernuBBer Bedeutung 


0 

1 

2 

3 

4 

5 

6 

7 

8 
9 

2 40 


Routine durch STOP-Taste unterbrochen 

Zuviele Dateien sind offen 

Die Datei ist bereits offen 

Die Datei ist nicht offen 

Datei nicht gefunden 

Gerät nicht vorhanden 

Die Datei ist keine Eingabe-Datei 

Die Datei ist keine Ausgabe-Datei 

Dateiname fehlt 

Ungültige Geräteadresse 

Die Speicherobergrenze wurde durch den 

RS-232 Puffer verändert 


Es ist zu beachten, daß manche Ein- / Ausgabe-Routinen 
nicht diese Fehlermeldungen benützen, sondern man selbst 
durch den Aufruf der Routine READST den Eingabestatus 
feststellen muß. 
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5.2.2 KERNAL-Vektoren 


Im folgenden finden Sie eine Liste der KERNAL-Routinen, 
die Sie durch eigene Routinen ersetzen oder ergänzen 
können, wenn Sie die entsprechenden Vektoren verstellen. 

Zur Erleichterung des Änderns von bestimmten Vektoren 
existiert. die KERNAL-Routine VECTOR. Wenn Sie diese Rou¬ 
tine verwenden wollen, müssen Sie wie folgt Vorgehen: Sie 
reservieren irgendwo im RAM 32 Byte. Die Startadresse die¬ 
ses Bereiches übergeben Sie im X- und Y-Register (Low- und 
High-Byte), dann setzen Sie das Carry-Elag und rufen die 
Routine VECTOR auf. Dann verändern Sie die Vektoren in der 
Kopie, wobei die Reihenfolge der Vektoren die gleiche ist. 
Schließlich rufen Sie die Routine nochmals mit dem glei¬ 
chen X- und Y-Register auf, aber mit gelöschtem Carry- 
Elag. Dann sind die neuen Vektoren gesetzt. 

Als Adresse der Vektoren ist in der folgenden Tabelle nur 
der Offset (Dezimal) zu 788 ($0314) angegeben. Jeder Vek¬ 
tor ist in der form Low-Byte, High-Byte gespeichert. Die 
Standardbelegung des Vektors ist in der dritten Spalte der 
unten abgebildeten Tabelle angegeben. 


Offset Eunktion Standard Bemerkung 

0 IRQ $EA31 Vor Veränderung dieses Vektors 

müssen die Interrupts verhin¬ 
dert werden. 

Vor dem Sprung über diesen 
Vektor wurden vom Betriebssys¬ 
tem bereits Akku, X-Register 
und Y-Register auf den Stapel 
gelegt, so daß eine selbstge¬ 
schriebene IRQ-Routine nicht 
mit RTI enden darf, sondern 
mit JMP $AE7E, wobei gleich 
das IRQ-Bit im CIAl gelöscht 
wird. 

2 BRK $EE66 Eür Prozessor-Befehle BRK 

($00); Akku, X, Y wie bei IRQ 
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4 

NMI 

$FE47 

NMI's können vom CIA2 oder von 
der RESTORE-Taste ausgelöst 
werden. Akku, X, Y wurden 
nicht gesichert, es wurde nur 
das Interrupt-Disaple-Flag 
gesetzt. 

6 

OPEN 

$F34A 

Ope n-Routi ne 

8 

CLOSE 

$F291 

Close-Routine 

10 

CHKIN 

$F20E 

Eingabe-Gerät setzen 

12 

CKOUT 

$F250 

Ausgabe-Gerät setzen 

14 

CLRCH 

$F333 

KERNAL-Routine CLRCH 

16 

CHRIN 

$F157 

Eingabe eines Zeichens 

18 

CHROUT 

$F1CA 

Ausgabe eines Zeichens 

20 

STOP 

$F6ED 

Abfrage der STOP-Taste 

22 

GETIN 

$F13E 

Holen eines einzelnen 

Zeichens 

24 

CLALL 

$F32F 

Schließen aller Dateien 

26 

WARM 

$FE66 

Warmstart 

28 

LOAD 

$F4A5 

Load; Startadresse in $C3,$C4 

30 

SAVE 

$F5ED 

Save; Startadresse in $C1,$C2, 
Endadresse in $AE,$AF 

Die 

Routine zur 

Tastaturdekodierung ist zwar auch eine Be- 


triebssystemroutine, wir wollen den entsprechenden Vektor 
aber bei den Basic-Vektoren beschreiben, da dieser nicht 
mit der VEKTOR-Routine angesprochen wird. 


5.2.3 Basic-Routinen 


Außer den KERNAL-Routinen spielen die Routinen des Basic- 
Interpreters eine wichtige Rolle, vor allem dann, wenn die 
Maschinenprogramme mit Basic zusammanarbeiten sollen. 
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Wir haben im folgenden die wichtigsten Einsprungstellen in 
den Bereich des Basic:-Interpreters aufgelistet. In dieser 
Tabelle finden Sie außer der dezimalen und hexadezimalen 
Adresse noch einen geläufigen Namen und eine Spalte mit 
Bemerkungen, wo vor allem die notwendigen Parameter auf¬ 
geführt sind. Die genaue Funktion der Basic-Routinen 
entnehmen Sie bitte einem ROM-Listing. Es ist empfehlens¬ 
wert, sich z.B. mit dem in #6# beschriebenen Disassembler 
einige Routinen oder Tabellen des Basic-ROM’s ausdrucken 
zu lassen. Die dort verwendeten Adressen können Sie leicht 
entschlüsseln, wenn Sie die folgenden Tabellen und die in 
Kapitel 5.1.1 abgebildeten Zero-Page-Adressen mitverwen¬ 
den. 


Häufige Abkürzungen in den folgenden Tabellen sind: 

FAC Fließkommaakkumulator; 6-Byte-Register ab $61 

ARG Argument-Register für Arithmetik; 6 Byte ab $69 

STRTOP Derjenige String, dessen Deskriptor als letzter 
auf den String-Stack ($19-$21) gelegt wurde 


Die Marken für Basic-Befehle beginnen immer mit 'BB'. Die 
Marken für Basic-Funktionen tragen den Namen der Funktion 
seIbs t. 

Die Verwendung der Basic-Befehle als Unterprogramme für 
selbstgeschriebene Maschinenprogramme ist manchmal nütz¬ 
lich. Zum Beispiel kann der OPEN-Befehl geschickt verwen¬ 
det werden in einer Routine, die anschließend noch Daten 
auf die neue Datei schreibt. Der Aufruf sieht dann etwa so 
aus: 

SYS Adr,FfNr,Ga,Sa,'Dateiname“ 


Das dazugehörige Assemblerprogramm sähe dann so aus: 

Adr: OSR CHKCOM ; prüfe, ob Komma folgt 

JSR BBOPEN ; Basic-Befehl OPEN aufrufen 

NOP ; Hier steht Programm zur Bearbei- 

NOP ; tung der Datei 

EDA $49 ; log. Dateinummer 

OSR CFOSE ; KERNAF-Routine CLOSE schließt 

; Datei wieder 
; Unterprogramm fertig 


RTS 
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*:Konstante (A/Y) ist Zahl, deren Adr. durch Akku (Low) und Y (High) gegeben is 
B849 47177 ! FACPLU05 ! FAC = FAC + 0.5' 

B850 47184 ! FKMINUS ! FAC = Konstante (A/Y) - FAC ; F1ießk.-Subtraktion 

B853 47187 ! FAMINUS ! FAC = ARG - FAC ; Fließk.-Subtraktion 
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5.2.4 Basic-Vektoren 


Der Basic-Interpreter besitzt einige Schlüssel-Routinen, 
die immer wieder angesprungen werden. Wenn man diese Rou¬ 
tinen durch eigene ersetzt oder ergänzt, kann man die Ei¬ 
genschaften des Interpreters weitgehend verändern, ohne 
den ganzen Interpreter neu schreiben zu müssen. 

Insgesamt gibt es 8 derartige Routinen, wenn man von der 
CHRGET/CHRGOT-Routine absieht, die in der Zero-Page steht. 
Die Routinen sind nach Adressen aufsteigend geordnet. 


Tastaturdekodierung 


Vektor: $028F,$0290 = 655,656 

Standardwert : $EB48 


Die Routine wird vom Betriebssystem aufgerufen, wenn die 
Nummer der gedrückten Taste feststeht. Die Tasten Shift/ 
C=/CTRL wurden bereits in Zelle $028D signalisiert. 

Sie können diese Routine verstellen, um z.B. die Funk¬ 
tionstasten zu belegen. 


Basic-Warmstart / Fehler 


Vektor: $0300,$0301 = 768,769 

Standardwert : $EB48 


Die Routine wird aufgerufen, wenn irgendein Basic-Fehler 
(z.B. SYNTAX ERROR) auftritt, wenn STOP/RESTORE gedrückt 
wurde oder der Prozessorbefehl BRK mit dem Standard-BRK- 
Vektor ausgeführt wird. 

Im X-Register ist Bit 7 gesetzt, wenn kein Fehler auftrat. 
Sonst steht dort die Nummer des Fehlers (siehe Kapitel 
5.11.1). 
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Wenn Sie diesen Vektor verstellen, muß nicht immer ein 
Programmabbruch die Folge eines Fehlers im Basic-Programm 
sein. Sinnvoll ist dies z.B. bei den Fehlern 'DIVISION BY 
ZERO' oder 'FILE OPEN'. 

Ihre Routine verlassen Sie entweder mit einem Sprung auf 
$EB4B (Eehler normal behandeln bzw. 'READY.', je nach X- 
Register) oder Sie springen in die Interpreterschleife 
($A7AE), wenn kein Programmabbruch erfolgen soll. 


Eingabe-Warteschleife 


Vektor: $0302,$0303 = 770,771 

Standardwert : $A483 


Wenn am Bildschirm 'READY.' erscheint, wird anschließend 
zur Eingabe-Warteschleife verzweigt. Der Rechner wartet 
dann auf die Eingabe einer Programmzeile oder eines Kom¬ 
mandos. 

Sie können an dieser Stelle z.B. die Grafik ausschalten, 
damit das oben erwähnte 'READY.' auch immer gleich in 
Klarschrift erscheint, oder Sie programmieren eine Routine 
zur automatischen Vorgabe der nächsten Zeilennummer. 


Kodieren einer Zeile 


Vektor: $0304,$0305 = 772,773 

Standardwert : $A57C 


Flier wird die Befehlszeile, die sich im Puffer ab $0200 
befindet, in Interpreterkode umgewandelt. Endekriterium 
ist das Auftreten des Codes '0'. 

Ersetzen Sie die Routine durch Ihre eigene, so muß ledig¬ 
lich das Y-Register mit der Länge der Zeile besetzt 
werden. Die Routine können Sie mit RTS oder mit OMP $A57C 
abschließen. 
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Dekodieren einer Zeile 


Vektor; $0306,$0307 = 774,775 

Standardwert : $A71A 


Diese Routine ist so etwas ähnliches wie die Umkehrung der 
Kodier-Routine, jedoch wird hier das Ergebnis (der Klar¬ 
text) sofort am Bildschirm ausgegeben. Außerdem wird nicht 
die ganze Zeile, sondern nur ein Codezeichen dekodiert, 
weil die Schleife, die jeweils das nächste Zeichen bereit¬ 
stellt, außerhalb des Bereichs steht. 


Für Ihre Zwecke können Sie den 
eigene, kodierte Befehle zu listen. 
OMP $A6EF, also mit einem Sprung 
beendet werden. 


Vektor verstellen, um 
Die Routine sollte mit 
auf die LIST-Schle ife 


Befehl ausführen 


Vektor: $0308,$0309 = 776,777 

Standardwert : $A7E4 


Im Moment des Aufrufs dieser Routine steht der Befehlszei¬ 
ger ($7A,$7B) vor dem nächsten Basic-Code. Diesen können 
Sie untersuchen und zu eigenen Befehlen verzweigen, wie es 
auch in unseren Basic-Erweiterungen (Kapitel 2.2.1) ge¬ 
schehen ist. 


Arithaetisches Element 


auswerten 


Vektor: $030A,$030B = 778,779 

Standardwert : $AE86 


Hier wird der Wert eines arithmetischen Elementes, also 
der Wert einer Variablen, einer Konstanten oder einer 
Funktion bestimmt. Die Vorgehensweise beim Verstellen des 
Vektors ist ähnlich wie bei der zuletzt genannten Routine 
und ist ebenfalls in Kapitel 2.2.1 erläutert. 
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USR-Funktion auswerten 

Vektor: $0311,$0312 = 785,786 

Standardwert : $8248 


Dieser Vektor steht normalerweise auf 'ILLEGAL QUANTITY'. 
Mit Hilfe dieses Vektors können Sie aber leicht eigene 
Funktionen definieren, die Sie von Basic aus mit USR(X) 
aufrufen können. Wenn Sie keine weiteren Maßnahmen tref¬ 
fen, ist der Typ der USR-Funktion numerisch, und ein 
numerischer Parameter wird automatisch im Fließkomma- 
Akkumulator übergeben. Dort muß auch in diesem einfachen 
Fall der Funktionswert abgelegt werden. Wie Sie andere 
Parametertypen bearbeiten, entnehmen Sie bitte Kapitel 
2 . 2 . 1 . 8 . 


Beispiel Autostart 

Als Beispiel zur Anwendung von Basic-Vektoren wollen wir 
Ihnen hier ein Hilfsmittel vorstellen, das einerseits dem 
Programmschutz dient und andererseits die Benutzerfreund¬ 
lichkeit erhöht. 

Wenn Sie das unten abgebildete Programm eingeben und mit 
GOTO 900 starten, erhalten Sie ein Programm mit dem Namen 
’AUTOSTART’, das sofort seine Arbeit aufnimmt, wenn Sie es 
mit 


LOAD”AUTOSTART",8,1 


laden. In den Zeilen ab 100 können Sie Ihr Programm ein¬ 
tragen, was Sie mit END abschließen sollten, weil ja sonst 
ein zweitesmal das Programm gespeichert wird. 

Die Zeilen 80 und 90 setzen den beim Autostart verbogenen 
Vektor wieder zurück; lassen Sie diese Zeilen weg, stürzt 
der Rechner ab, wenn das Programm abgebrochen oder beendet 
wird. 

Soviel zur Anwendung des Programms, nun zur Theorie. In 
den Adressen 770, 771 befindet sich der Vektor für die 
Eingabeschle i fe, die angesprungen wird, nachdem 'READY.' 
ausgegeben wurde, also auch nach einem LOAD-Befehl. Den 
Vektor richten wir auf eine kleine Hilfsroutine ab Adresse 
828, die nichts anderes tut, als den RUN-Befehl aufzurufen 
und anschließend zur Interpreterschleife zu verzweigen. 
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Dieses Programmstück und den Vektor müssen wir mit dem 
Basic-Programm zusammen speichern, was ab Zeile 1110 durch 
Aufruf der KERNAL-Routine SAVE geschieht. 

Mit dem Befehl LOAD’Autostart“,8,1 laden wir den verbo¬ 
genen Vektor, die Hilfsroutine und das eigentliche Pro¬ 
gramm. Am Bildschirm erscheint zwar noch kurz 'READY.', 
aber die Hilfsroutine startet sofort das Programm. 


80 POKE 770,131 



<070> 

90 POKE 771,164 



<0B7> 

100 PRINT' 

HIER IST 

DAS TESTPROGRAMM" 

<214> 

110 PRINT"2.ZEILE" 



<036> 

120 END 




<248> 

900 OPEN 1 

,8,15,"S: 

AUTOSTART" 

<017> 

910 CLOSE 

1 



<098> 

1000 

PRINT"fCLR}" 

;REM BILDSCHIRM LOESCHEN 

<086> 

1010 

POKE 

828,169 

REM LDA 

# 

<1B3> 

1020 

POKE 

829,0 

REM 

0 

<142> 

1030 

POKE 

830,32 

REM JSR 


<133> 

1040 

POKE 

831,113 

REM 

* 71 

<093> 

1050 

POKE 

832,168 

REM 

A8 

<095> 

1060 

POKE 

833,76 

REM JMP 


<166> 

1070 

POKE 

834,174 

REM 

^ AE 

<163> 

1080 

POKE 

835,167 

REM 

A7 

<126> 

1090 

POKE 

770,60 

REM EINGABE-VEKTOR 

<201> 

1100 

POKE 

771,3 

REM AUF 

828 STELLEN 

<067> 

1110 

SYS 57812 "AUTOSTART" 


<110> 

1120 

POKE 

780,193 

;REM 

VEKTOR AUF 193 

<12B> 

1130 

POKE 

781,PEEK(45):REM 

SPEICHERN BIS 

<149> 

1140 

POKE 

782,PEEK(46):REM 

(45),(46) 

<195> 

1150 

POKE 

193,2 

:REM 

SPEICHERN AB 

<001 > 

1160 

POKE 

194,3 

;REM 

3*256 + 2 

<064> 

1170 

SYS 65496 

:REM 

SAVE-ROUTINE 

<141> 

1180 

POKE 

770,131 

;REM 

STANDARD-WERTE 

<100> 

1190 

POKE 

771,164 

;REM 

FUER EINGABE 

<141> 

1200 

END 




<052> 


5.2.5 Variablenzeiger 


Bei Verwendung von reinem Basic sind auch die Variablen¬ 
zeiger von entscheidender Bedeutung. Sie erlauben z.B. das 
Retten eines Programmes nach einem NEW-Befehl oder die 
direkte Manipulation von Variablen, aber auch das Kürzen 
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des Basic-Bereiches zur Unterbringung von Maschinenpro¬ 
grammen. 



Bild 5.2.5-1 : Schematische Darstellung der Basic-Zeiger 


Hexadez. Dezinal Bedeutung 


$2B,$2C 43,44 Zeiger auf Basic-Progran*start 

Ab der angegebenen Adresse steht das 
Basic-Programm. Die erste Adresse des 
Basic-Programmbereiches muß unbedingt mit 
0 belegt werden, weil der Interpreter 
sonst seine Arbeit nicht richtig auf¬ 
nimmt. 


$2D,$2E 45,46 Zeiger auf Beginn der Variablentabelle 

Hier steht die Adresse des ersten Ein¬ 
trages in der Variablentabelle, wobei pro 
Variable sieben Byte reserviert sind. Die 
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ersten beiden enthalten den Variablen¬ 
namen, wobei die beiden MSB's im Variab¬ 
lennamen über den Typ Auskunft geben, da 
Bit 7 in beiden Zeichen nicht gebraucht 
wird. 


1.Zeichen 
Bit 7=0 
Bit 7=0 
Bit 7=1 
Bit 7=1 


2.Zeichen 
Bit 7=0 
Bit 7=1 
Bit 7=0 
Bit 7=1 


Typ 

F1ießkomma 
String 

Integer 


$2F,$30 47,48 Zeiger auf Beginn der Arrays 

Der Beginn der Arrays ist in 47 und 48 
abgelegt, beginnend mit einem Feldkopf, 
der wenigstens 7 Byte lang ist. Für jede 
weitere Dimension wird der Feldkopf um 2 
Byte länger. Im Gegensatz zu den ein¬ 
fachen Variablen sind die Werte je nach 
Typ mit unterschiedlicher Wortlänge ge¬ 
speichert: Integer-Variablen belegen je 

zwei Byte, Fließkomma-Variablen je fünf 
Byte und String-Variablen je drei Byte 
(ohne den eigentlichen String). 

Nach NEW oder CLR wird dieser Zeiger dem 
Zeiger in $2D,$2E gleichgesetzt. 


$31,$32 49,50 Zeiger auf Ende der Arrays 

Ab hier beginnt der freie Speicher, 
dessen Länge mit FRE(O) abgefragt werden 
kann. 

Nach NEW oder CLR wird dieser Zeiger 
ebenfalls dem Zeiger in $2D,$2E gleich¬ 
gesetzt . 

$33,$34 51,52 Zeiger auf Beginn der Strings 

Ab der hier angegebenen Adresse werden 
schließlich die eigentlichen Zeichen¬ 
reihen abgelegt. 

Dieser Zeiger muß auf den Wert des Zei¬ 
gers in $37,$38 gesetzt werden, wenn 
letzterer verändert wird! 
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$37,$38 55,56 Ende des Basic-RAM's 

Dieser Zeiger zeigt auf das Byte nach der 
letzten von Basic benutzten RAM-Zelle. 
Wenn Sie diesen Zeiger vermindern, schaf¬ 
fen Sie Platz für Maschinenprogramme oder 
sonstige Daten, die nicht von Basic aus 
verändert werden sollen. Vergessen Sie 
aber nicht, auch den Zeiger auf den Be¬ 
ginn der Strings mitzuverändern oder CLR 
oder NEW zu schreiben, wodurch auch der 
Zeiger umbesetzt wird. 


5.3 Prozessor-Befehle 


Wer als Assembler-Programmierer schnell etwas über einen 
Befehl wissen will, ist in diesem Kapitel richtig. Auf 
ausreichende Informationen wird auf entsprechende Fach¬ 
literatur verwiesen (z.B. auch #6#). Außerdem sollen Ihnen 
die Tabellen das Nachvollziehen der in diesem Buch abge¬ 
bildeten Assembler-Programme erleichtern. 


5.3.1 Alphabetische Obersicht der Prozessor-Befehle 


ADC - ADdiere zum Akkumulator mit Carry-Flag 
AND - UND-Verknüpfung einer Speicherzelle mit dem Akku¬ 
mulator 

ASL - Shift Left; alle Bits um eins nach links schieben 
von rechts wird eine Null nachgezogen, und das 
äußerst linke Bit befindet sich anschließend im 
Carry-Flag 

BCC - Branch if Carry Clear 

BCS - Branch if Carry Set; verzweige, wenn das Carry- Flag 
gesetzt ist 

BEQ - Branch if EQual; verzweige, wenn Zero-Flag = 1 
BIT - Teste Speicherzelle mit Akkumulator 
BMI - Branch if Minus; verzweige, wenn Negativ-Flag=l 
BNE - Branch if Not Equal; verzweige, wenn Zero-Flag=0 
BPL - Branch if PLus; verzweige, wenn Negativ-Flag =0 
BRK - BReaK; Abbruch (Software-Interrupt) 

BVC - Branch if OVerflow Clear; verzweige, wenn kein 
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Überlauf vorhanden ist (Overflow-Flag = 0 ) 

BVS - Branch OVerflow Set; verzweige, wenn ein Über¬ 
lauf vorhanden ist (Overflow-Flag = 1) 

OLG- - CLear Carry; Carryflag löschen 

CLD - CLear Decimal Flag; Umschalten auf Binärarithmetik 
CLI - CLear Interupt Flag; Interrupt-Flag löschen (Inter¬ 
rupt ermöglichen) 

CLV - CLaer OVerflowflag; Überlauf-Flag löschen 
CMP - CoMPare Accu ; vergleiche Akku mit Speicher 

CPX - ComPare X ; vergleiche X-Register mit Speicher 

CPY - ComPare Y ; vergleiche Y-Register mit Speicher 

DEC - DECrement Memory ; SpeicherinhaIt um eins erniedri¬ 
gen 

DEX - DEcrement X ; X-Register um eins erniedrigen 
DEY - DEcrement Y ; Y-Register um eins erniedrigen 

EOR - Exklusiv-Oder-Verknüpfung Speicherzelle mit Akkumu¬ 
lator 

INC - INCrement Memory ; SpeicherinhaIt um eins erhöhen 
INX - INcrement X ; X-Register um eins erhöhen 
INY - INcrement Y ; Y-Register um eins erhöhen 

JMP - JuMP ; Unbedingter Sprung 

JSR - Oump Subroutine ; Unterprogramm-Aufruf 

LDA - LoaD Accu ; Lade Akkumulator mit Speicher 
LDX - LoaD X ; Lade X-Register mit Speicher 
LDY - LoaD Y ; Lade Y-Register mit Speicher 
LSR - Shift Right;alle Bits um nach rechts schieben, 

von links wird eine Null nachgezogen, und das 
äußerst rechte Bit befindet sich anschließend im 
Carry-Elag 

NOP - No Operation ; Leerbefehl 

ORA - Oder-Verknüpfung Speicherzelle mit Akkumulator 

PFIA - Push Accu ; Akku in Kellerspeicher (Stack) 

PHP - Push Processorstatus ; Prozessor-Status-Register in 
Kel lerspeicher 

PLA - Pull Accu ; Akku aus Kellerspeicher holen 
PLP - Pull Processorstatus ; Prozessor-Status-Register aus 
Kellerspeicher holen 

ROL - ROtate Left - Rotiere ein Bit linksherum (Akku oder 
Speicher); Bit 7 geht in das Carry-Elag, das alte 
Carry-Elag geht nach Bit 0 

ROR - ROtate Right - Rotiere ein Bit rechtsherum (Akku 
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oder Speicher); Bit 0 geht in das Carry- Flag, das 
alte Carry-Flag geht nach Bit 7 

RTI - ReTurn from Interrupt - Rückkehr vom Interrupt; 
restauriert Programmzähler und Prozessorstatus 

RTS - ReTurn from Subroutine - Rückkehr vom Unterpro¬ 
gramm; restauriert nur Programmzähler 

SBC - Subtrahiere vom Akkumulator mit Carry-Flag 

SEC - SEt Carry; Carryflag setzen 

SED - SEt Decimal Flag; Umschalten auf Dezimalarithmetik 

SEI - SEt Interupt Flag; Interrupt-Flag setzen (Interrupt 
verhindern) 

STA - STore Accu; speichere Akkumulator 

STX - STore X; speichere X-Register 

STY - STore Y; speichere Y-Register 

TAX - Transfer Accu into X; Akkumulator in X-Register 
übe rtragen 

TAY - Transfer Accu into Y; Akkumulator in Y-Register 
übertragen 

TSX - Transfer Stack-Pointer into X; Stackpointer in 
X-Register übertragen 

TXA - Transfer X into Accu; Akkumulator in X-Register 
übertragen 

TXS - Transfer X into Stackpointer; X-Register in 
Stackpointer übertragen 

TYA - Transfer Y into Accu; Akkumulator in Y-Register 
übertragen 


5.3.2 Prozessor-Befehle in numerischer Reihenfolge 


Wir wollen in diesem Kapitel eine Tabelle angeben, die 
sämtliche Befehle des 6510-Prozessors enthält. Diese Ta¬ 
belle ist nützlich, wenn Sie ein kleines Programm per Fland 
disassemblieren wollen. Aus dieser Tabelle sind auch die 
nicht verwendeten Codes ersichtlich. Zu jedem Befehl wird 
neben dem Code die mnemotechnische Bezeichnung mit der 
entsprechenden Adressierungsart angegeben. 


Ab - Absolute, Absolut-X-indizierte, Absolut-Y-indizier¬ 
te oder indirekte Adressierung (2 Byte folgen) 

Zp - Zero-Page-, Zero-Page-X-indizlerte, Zero-Page-Y- 
indizierte, oder vor- bzw. nachindizierte Adres¬ 
sierung (1 Byte folgt) 

By - unmittelbare Adressierung (1 Byte folgt) 

A - Akkumulator (es folgt kein Byte) 

Rel - relative Adressierung (1 Byte folgt) 
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00 BRK 

01 ORA (Ab,X) 
02 i1lega1 
03 illegal 
04 illegal 
05 ORA Zp 
06 ASL Zp 
07 illegal 
08 PHP 
09 ORA #By 
OA ASL A 
OB illegal 
00 illegal 
OD ORA Ab 
OE ASL Ab 
OF illegal 

10 BPL Rel 

11 ORA (Zp),Y 

12 illegal 

13 illegal 

14 illegal 

15 ORA Zp,X 

16 ASL Zp,X 

17 illegal 

18 CLO 

19 ORA Ab,Y 
lA i1 legal 
IB illegal 
10 illegal 
ID ORA Ab,X 
lE ASL Ab,X 
IF illegal 

20 JSR Ab 

21 AND (Zp,X) 

22 illegal 

23 illegal 

24 BIT Zp 

25 AND Zp 

26 ROL Zp 

27 illegal 

28 PLP 

29 AND #By 
2A ROL A 
2B illegal 
20 BIT Ab 
2D AND Ab 
2E ROL Ab 
2F illegal 

30 BMI Rel 

31 AND (Zp),Y 

32 illegal 


33 illegal 

34 illegal 

35 AND Zp,X 

36 ROL Zp,X 

37 illegal 

38 SEO 

39 AND Ab,Y 
3A illegal 
3B illegal 
30 illegal 
3D AND Ab,X 
3E ROL Ab,X 
3F illegal 

40 RTI 

41 EOR (Zp,X) 

42 illegal 

43 i 1 legal 

44 illegal 

45 EOR Zp 

46 LSR Zp 

47 illegal 

48 PHA 

49 EOR #By 
4A LSR A 
4B illegal 
40 JMP Ab 
4D EOR Ab 
4E LSR Ab 
4F illegal 

50 BVO Rel 

51 EOR (Zp),Y 

52 illegal 

53 illegal 

54 illegal 

55 EOR Zp,X 

56 LSR Zp,X 

57 illegal 

58 OLI 

59 EOR Ab,Y 
5A illegal 
5B illegal 
50 illegal 
5D EOR Ab,X 
5E LSR Ab,X 
5F illegal 

60 RTS 

61 ADO (Zp,X) 

62 illegal 

63 illegal 

64 illegal 

65 ADO Zp 
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66 ROR Zp 

67 illegal 

68 PLA 

69 ADC #By 
6A ROR A 
6B illegal 
6C JMP (Ab) 

6D ADC Ab 
6E ROR Ab 
6F illegal 

70 BVS Rel 

71 ADC (Zp),Y 

72 illegal 

73 illegal 

74 i llegal 

75 ADC Zp,X 

76 ROR Zp,X 

77 illegal 

78 SEI 

79 ADC Ab,Y 
7A i1 legal 
7B illegal 
7C illegal 
7D ADC Ab,X 
7E ROR Ab,X 
7F illegal 

80 illegal 

81 STA (Zp,X) 

82 i llegal 

83 illegal 

84 STY Zp 

85 STA Zp 

86 STX Zp 

87 illegal 

88 DEY 

89 illegal 
8A TXA 

8B illegal 
8C STY Ab 
8D STA Ab 
8E STX Ab 
8F illegal 

90 BCC Rel 

91 STA (Zp),Y 

92 i llegal 

93 illegal 

94 STY Zp,X 

95 STA Zp,X 

96 STX Zp,Y 

97 illegal 

98 TYA 


99 

STA 

Ab, Y 

9A 

TXS 


9B 

i 1 legal 

9C 

i 1 lega 1 

9D 

STA 

Ab,X 

9E 

illegal 

9F 

i 1 legal 

AO 

LDY 

#By 

Al 

EDA 

(Zp,X) 

A2 

LDX 

#By 

A3 

i llegal 

A4 

LDY 

Zp 

A5 

EDA 

Zp 

A6 

LDX 

Zp 

A7 

i llegal 

A8 

TAY- 


A9 

EDA 

CD 

AA 

TAX 


AB 

i llegal 

AC 

LDY 

Ab 

AD 

EDA 

Ab 

AE 

LDX 

Ab 

AF 

i 1 legal 

BO 

BCS 

Rel 

Bl 

EDA 

(Zp),Y 

B2 

i llegal 

B3 

i llegal 

B4 

LDY 

Zp,X 

B5 

EDA 

Zp,X 

B6 

LDX 

Zp,Y 

B7 

i 1 legal 

B8 

CLV 


B9 

EDA 

Ab,Y 

BA 

TSX 


BB 

i 1 legal 

BC 

LDY 

Ab,X 

BD 

EDA 

Ab,X 

BE 

LDX 

Ab,Y 

BF 

i 1 legal 

CO 

CPY 

#By 

CI 

CMP 

(Zp,X) 

C2 

i 1 legal 

C3 

i 1 legal 

C4 

CPY 

Zp 

C5 

CMP 

Zp 

C6 

DEC 

Zp 

C7 

illegal 

C8 

INY 


C9 

CMP 

#By 

CA 

DEX 


CB 

i llegal 
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CG CPY Ab 
CD CMP Ab 
CE DEC Ab 
CF illegal 
DO BNE Kel 
Dl CMP (Zp),Y 
D2 i 1 legal 
03 illegal 
D4 illegal 
D5 CMP Zp,X 
D6 DEC Zp,X 
D7 illegal 
D8 CLD 
D9 CMP Ab,Y 
DA i1 legal 
OB illegal 
DC illegal 
DD CMP Ab,X 
DE OEC Ab,X 
DF illegal 
EO CPX #By 
El SBC (Zp,X) 
E2 illegal 
E3 illegal 
E4 CPX Zp 
E5 SBC Zp 


E6 INC Zp 
E7 illegal 
E8 INX 
E9 SBC #By 
EA NOP 
EB illegal 
EC CPX Ab 
ED SBC Ab 
EE INC Ab 
EF illegal 
FO BEQ Rel 
Fl SBC (Zp),Y 
F2 illegal 
F3 i1 lega1 
F4 illegal 
F5 SBC Zp,X 
F6 INC Zp,X 
F7 illegal 
F8 SED 
F9 SBC Ab,Y 
FA i1lega1 
FB illegal 
FC illegal 
FD SBC Ab,X 
FE INC Ab,X 
FF illegal 


Raum für Notizen: 
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rH 

rH 

CM 

CM 

CM 

CM 

II 

c 

05 


II 

II 

















II 


CD 


II O 

II 

CM 

00 


O 

ID 

CM 

00 

M- 

o 

l£3 

CM 

00 

M- 

o 

m 

CM 

II 




II 

II 

tH 

C\1 


IO 


05 

o 

CM 


lO 


00 

o 

CM 

CO 

lO 

II 


TD 


II 

II 







rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

CM 

II 

c 

C 


II 

II 

















II 

0 

O 


II CD 

II 

T—1 


CO 

05 

lO 

rH 


CO 

(75 

lO 

rH 


CO 

(75 

lO 

rH 

II 

X 

0 


II 

II 

tH 

CM 


lO 


05 

o 

CM 

CO 

lO 

N 

00 

o 

rH 

CO 

lO 

II 

0 

o 


II 

II 







rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

CM 

II 

0 

0 


M < 

II 

o 


CM 

00 

M- 

o 

l£3 

CM 

00 

M- 

o 

l£3 

CM 

00 

M- 

o 

II 

M 



II 

II 

tH 

CM 


lO 

N 

05 

O 

CM 

CO 

lO 


00 

o 

rH 

CO 

lO 

II 


■O 


II 

II 







rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

CM 

II 

0 



II 05 

II 

05 

lO 

rH 


CO 

05 

lO 

rH 


CO 

(75 

lO 

rH 


CO 

(75 

II 

44) 

c 


II 

II 


CM 


lO 


00 

o 

CM 

CO 

lO 

l£3 

00 

o 

rH 

CO 

M* 

II 

CO 

0 


II 

II 







rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

CM 

II 

c_ 

■Q 


II 

II 

















II 

0 



II 00 

II 

00 


o 

lO 

CM 

00 

M- 

o 

lO 

CM 

00 

M- 

o 

l£3 

CM 

00 

II 




II 

II 


CM 


U5 


Oü 

o 

CM 

CO 

lO 

l£3 

00 

o 

rH 

CO 

M* 

II 

CO 

r5 


II 

II 







rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

CM 

II 

■o 

c 


II 

II 


CO 

05 

lO 

rH 


CO 

(75 

lO 

rH 


CO 

(75 

lO 

rH 


II 


0 


II 

II 


CM 

CO 

lO 


00 

o 

rH 

CO 

lO 

l£3 

00 

(75 

rH 

CO 


II 

X 

4-) 


II 

II 







rH 

rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

II 

0 



II 

II 

















II 


CD 


II CO 

II 

ID 

CM 

00 

M- 

o 

l£3 

CM 

00 

M- 

o 

l£3 

CM 

00 


o 

l£3 

II 

CO 

CL 


II 

II 


CM 

C<5 

lO 


00 

o 

rH 

CO 

lO 

l£3 

00 

(75 

rH 

CO 

M* 

II 


(f) 


II 

II 







rH 

rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

II 

44) 



II 

II 
















II 

0 



II lO 

II 

lO 

tH 

N 

CO 

05 

lO 

rH 

rv 

CO 

(75 

lO 

rH 


CO 

(75 

lO 

II 

■o 

C 


II 

II 


CM 

CO 

lO 

ID 

00 

o 

rH 

CO 

M* 

l£3 

00 

(75 

rH 

CM 

M* 

II 

c 

0 


II 

II 







rH 

rH 

tH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

II 


44) 


II 

II 

















II 

0- 

X 


II ^ 

II 


o 

ID 

CM 

00 

M- 

o 

l£3 

CM 

00 

M- 

o 

l£3 

CM 

00 

M- 

II 

0 

0 


II 

II 


CM 


lO 

ID 

00 

o 

rH 

CO 

M* 

l£3 

00 

(75 

rH 

CM 

M* 

II 

r} 

0 


II 

II 







rH 

rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

II 

0 



II CO 

II 

CO 

05 

lO 

rH 

N 

CO 

99 

lO 

rH 

N 

CO 

(75 

lO 

rH 

N 

CO 

II 

4-) 

C 


II 

II 


tH 

CO 

lO 

ID 

Oü 

rH 

CO 

M* 

ID 

1^ 

(75 

rH 

(M 

M* 

II 


0 


II 

II 








rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

II 

0 

O 


II 

II 

















II 

CL-^ 


II CM 

II 

CM 

00 


o 

ID 

CM 

on 

M- 

n 

l£3 

CM 

00 

M- 

o 

(D 

CM 

II 

(/) 

0 


II 

II 


rH 

CO 

lO 

lO 

00 

(75 

rH 

CO 

M* 

ID 


(75 

rH 

CM 

M* 

II 


n 


II 

II 








rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

II 

0 



II tH 

II 

tH 

N 

CO 

05 

lO 

rH 

N 

CO 

(75 

lO 

rH 

N 

CO 

(75 

lO 

rH 

II 

4^ 

0 

C\1 

II 

II 


rH 

CO 

M* 

(£3 

00 

(75 

rH 

CM 

M* 

l£3 

N 

(75 

o 

CM 

M* 

II 

c 


05 

II 

II 








rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

II 


Q 

tH 

II 

II 

















II 



00 

II o 

II 

o 

ID 

CM 

00 

M- 

o 

in 

CM 

00 

M- 

o 

l£3 

CM 

00 

M- 

C 

II 


• 


II 

II 


rH 

CO 


l£3 

uu 

05 

rH 

CM 

M* 

l£3 


(75 

u 

CM 

M* 

II 

0 

C 

II 

II 

II 








rH 

rH 

rH 

rH 

rH 

rH 

CM 

CM 

CM 

II 

0 

0 


II 

II 

















II 

■o 
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o 

II — 

II 

_ 

... 






—. 

—. 

— 

... 

— 

— 

_ 

— 


II 


0 

o 

II 

II 

















II 

c 


o 

II 

II 

0 

1 

CM 

CO 

M- 

5 

6 

7 

8 

V 

6 

CD 

o 

CD 

LD 

U. 

II 

1—1 

0 

C\l 

II 

II 

















II 


[SJ 


— 

— 

— 

— 

— 

— 

— 

— 

— 



— 

— 

— 

— 

— 

— 

— 

— 


0 
I—( 
0 

CL 

(0 

0 

CD 


$7F =127 ; $F7 = 247 ; $B00 = 2816 ; $B000 = 45056 
$A77 = 2560+119 = 2679 ; §ABCD = 40960+2816+205 = 43981 
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5.5 ASCII- und CHR$-Codes 


Nr. 


Code 


Nr. Code 


O 

1 


4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


24 

25 

26 

27 

28 

29 

30 

31 


34 

-rc 

36 

37 

38 


WEISS 


SPERRT SHIFT/C= 
ENTSPERRT SHIFT/C= 


RETURN-TASTE 

UMSCHALTUNG KLEIN-SCHRIFT 


CURSOR NACH UNTEN 
REVERSE-SCHRIFT EIN 
HOME 
DEL 


ROT 

CURSOR NACH RECHTS 

GRUEN 

BLAU 

LEERZEICHEN 


f- 


7. 


39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 


54 

55 

56 

57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 


( 

) 

* 

+ 


1 


4 

5 

6 

7 

8 
9 


§ 

A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 


O % 
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Nr. 

Code 

Nr. 

Code 

77 

M 

^ 


78 

N 

1 :”'3 

•f 

79 

0 

134 


80 

P 

1 X S 

! 

81 

Q 

12h 

r, 

82 

R 

1 37 

’*llj 

83 

S 

1 ?3 


84 

T 

129 

ORANGE (SHIFT/SCHWARZ) 

85 

U 

130 


86 

V 

131 


87 

w 

132 


88 

X 

133 

FUNKTIONSTASTE Fl 

89 

Y 

134 

FUNKTIONSTASTE F3 

90 

z 

135 

FUNKTIONSTASTE F5 

91. 

[ 

136 

FUNKTIONSTASTE F7 

92 

£ 

137 

FUNKTIONSTASTE F2 (SHIFT Fl) 

93 

] 

138 

FUNKTIONSTASTE F4 (SHIFT F3) 

94 

t 

139 

FUNKTIONSTASTE F6 (SHIFT F5) 

95 

+- 

140 

FUNKTIONSTASTE F8 (SHIFT F7) 

9^ 


141 

RETURN-TASTE MIT SHIFT 

97 

if) 

142 

UMSCHALTUNG GROSS-SCHRIFT 

93 

1 

143 


99 


144 

SCHWARZ 

1 fH‘1 

— 

145 

CURSOR NACH OBEN 

101 


146 

REVERSE-SCHRIFT AUS 

102 


147 

CLR / BILDSCHIRM LOESCHEN 

10i:5 

1 

148 

INST / EINFUEGEN 

104 

1 

149 

BRAUN (SHIFT/WEISS) 

105 


150 

HELLROT (SHIFT/ROT) 

106 


151 

GRAU 1 (SHIFT/CYAN) 

107 


152 

GRAU 2 (SHIFT/PURPUR) 

108 

L... 

153 

HELLGRUEN (SHIFT/GRUEN) 

109 


154 

HELLBLAU (SHIFT/BLAU) 

1 10 


155 

GRAU 3 (SHIFT/GELB) 

111 

r 

156 

PURPUR 

1 12 

“! 

157 

CURSOR NACH LINKS 

113 


158 

GELB 

11 4 


159 

CYAN 

115 

* 

160 

SHIFT/LEERZEICHEN 

116 

! 

161 

II 

117 


162 

IM 

118 

X 

163 

— 

119 

C' 

164 


120 

'i' 

165 

1 

121 

] 

1 



n ÜT 
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Nr. 


Code Nr. 


Code Nr. Code 


1 f-,Q 
1 ■•fl 
1?1 
1 7 -;;:. 

1 7-"; 

1 74. 

1, Tk 
1 77 

178 

179 
1.80 
1 1 

1. ES 
103 
1 84 
185 

180 

187 

188 
18“? 

190 

191 

192 

193 

194 

195 

196 

197 



!. 

n 

I., 

n 

r 

-l.. 

'T 

...| 

! 

! 

1 


7 

§ 

A 

B 

C 

D 

E 


198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
21 1 

213 

214 

215 

216 

217 

218 

219 

220 

224 

225 

226 
*7 *7 "7 


F 

G 

H 

I 

J 

K 

L 

H 

N 

O 

P 

Q 

R 

O 

T 

U 

1/ 

R 

X 

Y 

-r 

£. 

Ä 

ö 

0 


a 

b 






d 

e 

f 

g 

h 

i 

J 

k 

1 

10 

n 

o 

P 

g 

r 


u 

N 

X 

y 

ä 

ö 

il 

ß 


'A 
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5.6 Steuerzeichen auf Drucker 


FMziktian 

CLR 

3 

VC isas 

j a 

FXmktion 

CLR 


MR 801 

n 3 

HOME 

3 

a 

a 

HOME 

= 

a 

E! 

REVERS ON 

= 

a 

B 

REVERS DH 

= 

s 

a 

REVERS OF 

3 

s 

a 

REVERS OF 

= 

■ 

a 

INST 

3 

II 

■ 

INST 

= 

II 

II 

STOP 

3 

a 

B 

STOP 

= 



RECHTS 

B 

B 

B 

RECHTS 

= 

II 

II 

LINKS 

3 

II 

H 

LINKS 

= 

II 

II 

UNTEN 

3 

B 

a 

UNTEN 

= 

w 

£1 

OBEN 


□ 

a 

OBEN 

= 

n 

W 

SCHUlftRZ 

■ 

m 

a 

SCHWRRZ 

= 

a 

a 

UJEISS 

3 

a 

a 

WEISS 

= 

a 

3 

ROT 

3 

3 

3 

ROT 

S 

ra 

rn 

TUERKIS 

3 

k. 


TUERKIS 

= 

k 

Sf 

VIOLETT 

3 

a 

a 

VIOLETT 

= 



GRUEN 

S 

u 

u 

GRUEN 

= 

ii 

Ei 

BLftU 

= 

a 

a 

BLRU 

= 

f3 

tm 

IV 

kB 

GELB 

3 

Q 

i( 

GELB 

= 

n 


ORBNGE 

3 

13 

3 

ORRNGE 

= 


a 

BRBUN 

= 

R 

a 

BRRUN 

= 

K 

IJ 

HELLROT 

3 

O 

a 

HELLROT 



a 

GRBU I 

“ 

IB 

a 

GRRU 1 

= 


91 

GRBU S 

8 


a 

GRRU 2 

= 

13 

9 

HELLGRUEN 

3 

M 

a 

HELLGRUEN 


II 

:i 

HELLBLBU 

3 

a 

B 

HELLBLRU 

= 

13 

R 

GRBU 3 

3 

■■ 

■■ 

Bl 

aa 

GRRU 3 

s 

Bl 

•1 

•t 

■1 

Fl 

- 

■ 

a 

Fl 

= 

R 

a 

F2 

3 

B 

B 

F2 

=£ 

a 

II 

F3 

- 

S 

a 

F3 

S 

■ 

a 

F4 

3 

■ 

M 

F4 

s 

K 

M 

F5 

■ 

R 

H 

F5 

= 

II 

a 

FB 

- 

91 

a 

F6 

=: 

U 

a 

F7 

3 

II 

S) 

F7 

= 

II 

:i 

FB 

3 

B 

a 

FS 

s 

■ 

a 



GcaEkmodus GpD&-/*£Qeinbuchs&ben 
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5.7 Tastaturmatrix 
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5.8 Prioritäten 

der Operatoren 

Die 

möglichen Operatoren sind nachfolgend nach ihrer 

Priorität (l-hoch; 9-niedrig) 

geordnet. 

1 

Klammern 

zur Kennzeichnung des 



Ablaufes der Abarbeitung 


Arithmetische Operatoren 

2 

(Pfeil nach oben) 

in diesem Buch:** 



Potenzierung 

3 

- 

(unäres) Minus 

4 

* 

Multiplikation 

4 

/ 

Division 

5 

+ 

Ad d i t i 0 n 

5 

- 

Subtraktion 



Vergleichende 

Operatoren 


6 

= 

Gleichheit 


6 

<>• X 

in diesem Buch: 

NE 



Ungle ichhe i t 


6 

< 

in diesem Buch: 

LT 



kleiner als 


6 

> 

in diesem Buch: 

GT 



größer als 


6 

>= .>= 

in diesem Buch: 

GE 


y 

größer oder gleich 

6 

<= ;< = 

in diesem Buch: 

LE 



kleiner oder gleich 



Boolsche Operatoren 


7 

NOT 

Nicht/Umkehr ung 

8 

AND 

logische UND-Verknüpfung 

9 

OR 

logische ODER-Verknüpfun 
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5.9 Statusübersicht 


Bit ! Lesen von ! Verifizieren ! Gerät am 

Dezimal ! Kassette ! auf Diskette ! seriellen 

! ! ! Bus 


Zeitüber¬ 

schreitung 

beim 

Schreiben 


Zeitüber- 
schreitung 
beim Lesen 


Bit 2 ! Kurzer Block! 

dez.:4 ! (weniger ! 

1 Bytes als I 

I erwartet) I 


Bit 3 I Langer Block! 

dez.:8 ! (mehr Bytes ! 

! als erwar- ! 

! tet) ! 


Bit 4 ! 

dez.:16 ! 

irreparab 1er! 
Lesefehler ! 

Abweichung beim ! 

Verifizieren ! 

Bits ! 

dez.:32 ! 

Prüfsummen- ! 
fehler ! 

Prüf summenfeh 1er! 

! 

Bit 6 ! 

dez.:64 ! 

Dateiende ! 

Dateiende ! Dateiende 

! 

Bitz ! 

dez.:-128! 

Bandende ! 

! 

Floppy nicht ! Gerät nicht 

betriebsbereit ! vorhanden 


Bit 1 
dez. : 2 


Bit 0 ' ! - ! 

dez.:1 ! ! 

j ! 

I I 
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5.10 Gerätenummern und Sekundäradressen 


Gerät ! 

! 

Gerätenr. 

! Sekundär- 
! adresse 

! Tätigkeit 
! 

Tastatur ! 

0 

! 

! 

Kassetten-! 
rekorder 1! 

1 

1 

! 0 
! 

! Datei zum Lesen 
! öffnen 

! 

! 

1 


! 1 
! 

! Datei zum 
! Schreiben öffnen 

! 

1 

1 

! 


! 2 
! 

! 

! 

! Datei zum 
! Schreiben mit 
! Bandendemarkie- 
! rung öffnen 

RS 232 ! 
Schnitt- ! 
stelle ! 

2 

! 

! 

! 

j 

! 

! 

BiIdschirm! 

3 

! 

! 

Drucker ! 

! 

4 

(oder 5) 

! 7 

! 

! alternativer 
! Zeichensatz 

Geräte ! 
des Anwen-! 
ders ! 

(5) 

6 

7 

! 

! 

! 

1 

1 

1 

Floppy ! 

! 

1 

8 

(norma1) 

! 0 
! 

! Programmdatei 
! laden 

! 

! 

1 


! 1 
! 

! Programmdatei 
! speichern 

! 

1 


! 2-14 

! für Anwender 

1 ... . .. 

! 


! 15 

! Kommandokanal 

Zweite ! 

Floppy ! 

9 

! siehe 

! 

Floppy 
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! - ! 

I Geräte des! (9) 1 I I 

1 Anwenders I 10 I I ! 

1 1 11 1 1 I 

I-! 

I nicht I 12 - I I I 

1 verfügbar! 255 ! ! ! 

I-! 
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5.11 Fehlermeldungen 


Da das Handbuch nur eine Übersicht der Fehlermeldungen 
bringt, wollen wir hier etwas ausführlicher darauf ein- 
gehen. Der Vollständigkeit halber werden im zweiten Un¬ 
terkapitel die Fehlermeldungen, die durch die Floppy 
bedingt sind, auch angeführt. 

In einem Assembler-Programm können Sie die Fehler aufgrund 
der Fehlernummer selbst bearbeiten, wenn Sie den Basic- 
Warmstart-Vektor ($0300/$0301-768/769) verändern. 


5.11.1 Basic-Fehlermeldungen (Rechner) 


Folgende Punkte sind bei allen Fehlern zu beachten: 

- Tritt der Fehler im Direktmodus auf, so wird 
die Fehlerangabe gefolgt von dem Wort 'ERROR' 

- Wird der Fehler im Programm gefunden, so wird 
die Meldung im Direktmodus gefolgt von 'IN 
(Zeilennummer)', was eine schnelle Lokali¬ 
sierung des Fehlers ermöglicht. Ausnahmen sind 
hier die Hinweise, die ohne Programmabbruch 
ausgeführt werden: 

REDO FROM START und EXTRA IGNORED 

- Nach jeder Fehlermeldung befindet sich der 
Computer im READY-Modus und erwartet neue 
Anweisungen 

- Die Werte der Variablen bleiben erhalten, was 
die Fehlerfindung sehr vereinfacht 

- Der Stack (Kellerspeicher) des Betriebssystems 
wird nach Fehlermeldungen zurückgesetzt, so 
daß Rücksprungadressen für GOSUB-Befehle und 
FOR...NEXT-Schleifen nicht mehr zur Verfügung 
stehen. 

- CONT ist nach einem Programmabbruch durch 
einen Fehler deshalb nicht möglich 



Tabellen und Diagramme 


341 


Alphabetische Obersicht 


Nr. 

FehlermeIdung 

Bedeutung 

18 

BAD SUBSCRIPT 

Angegebener Index nicht DIMensio- 
niert 

26 

CAN'T CONTINUE 

Fortsetzung des Programms nicht 
mögl ich 

5 

DEVICE NOT PRESENT 

Gerät nicht am seriellen Bus 

20 

DIVISION BY ZERO 

Division durch Null 

24 

FILE DATA 

Falsche Eingabe-Variable 

3 

FILE OPEN 

Datei bereits offen 

4 

FILE NOT FOUND 

Datei nicht gefunden 

2 

FILE NOT OPEN 

Datei nicht offen 

25 

FORMULA TOO COMPLEX 

Zu komplizierter String-Ausdruck 

21 

ILLEGAL DIRECT 

Unerlaubtes Direktkommando 

9 

ILLEGAL DIVICE 

Falsche Gerätenummer 

14 

ILLRGAL QUANTITY 

Unerlaubter Wert 

29 

LOAD 

Eingelesenes Programm nicht OK 
(nur bei Kassettenrekorder) 

8 

MISSING FILE NAME 

Dateiname fehlt (leer) 

10 

NEXT WITHOUT FOR 

NEXT ohne FOR 

6 

NOT INPUT FILE 

Keine Eingabedatei (nur bei 
Kassettenrekorder) 

7 

NOT OUTPUT FILE 

Keine Ausgabedatei (nur bei 
Kassettenrekorder) 

13 

OUT OF DATA 

Zuwenig Daten in DATA-Zeilen 

16 

OUT OF MEMORY 

Zuwenig Speicher oder Stacküber¬ 
lauf 

15 

OVERFLOW 

Überlauf des Zahlenbereiches 

12 

RETURN WITHOUT GOSUB 

RETURN ohne GOSUB 

19 

REDIM’D ARRAY 

Feld wurde bereits dimensioniert 

23 

STRING TOO LONG 

Zeichenreihe zu lang 

11 

SYNTAX 

Fehlerhafter Befehl 

1 

TOO MANY FILES 

Zu viele Dateien 

22 

TYPE MISMATCH 

Falsche Variablentypen (String, 
Zahlen) 

17 

UNDEF'D STATEMENT 

Zeilennummer nicht gefunden 

27 

UNDEF'D FUNCTION 

Funktion nicht definiert 

28 

VERIFY 

Fehler bei Programmüberprüfung 


Hinweise (ohne Programmabbruch): 


REDO FROM START Zeichenreihe sollte in Zahlva¬ 

riable eingelesen werden 
zuviele und ' ; ’ in 

eingegebener Zeichenreihe 


EXTRA IGNORED 
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Die Fehlermeldungen in einzelnen 


18 BAD SUBSCRIPT Angegebener Index nicht dimen¬ 

sioniert 


Bei einer indizierten Variablen (Feld, Array) wurde ein 
Index im Programm verwendet, der nicht dimensioniert 
wurde. Felder bis zu 10 Elementen brauchen nicht dimen¬ 
sioniert zu werden, jedoch tritt der oben genannte Fehler 
auf, sobald Sie den Index '11' ansprechen. In der Regel 
tritt dies in Schleifen auf und bedeutet in nicht seltenen 
Fällen auch einen logischen Fehler. 


26 CAN'T CONTINUE Fortsetzung des Programms nicht 

möglich 


Dieser Fehler kann nur auftreten, nachdem Sie CONT im Di¬ 
rektmodus zur Programmfortsetzung eingegeben haben. Dies 
ist der Fall, wenn Sie das Programm nach einer Fehlermel¬ 
dung (stack leer) oder Programmänderung (Variablen ge¬ 
löscht) fortsetzen wollen, oder das Programm überhaupt 
noch nicht gestartet haben. 


5 DEVICE NOT PRESENT (Gerät nicht am seriellen Bus) 


Dieser Fehler tritt nur bei den Befehlen OPEN, CLOSE, 
INPUT#, GET#, PRINT#, CMD, LOAD, SAVE und VERIFY auf. Dies 
ist der Fall, wenn kein Gerät am lEC-Bus angeschlossen und 
eingeschaltet ist. 

Ist ein Gerät am lEC-Bus angeschlossen (Steckerverbindung) 
und eingeschaltet, so tritt dieser Fehler aber auch dann 
nicht auf, wenn Sie ein anderes Gerät (andere Gerätenum¬ 
mer) ansprechen, was entweder nicht angeschlossen oder 
nicht eingeschaltet ist. 
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20 DIVISION BY ZERO Division durch Null 


Für Mathematiker klar: Ist der Divisor bei einer Division 
’O', so ist dies eine mathematisch unerlaubte Operation 
und wird auch von dem Computer nicht ausgeführt. Prüfen 
Sie Ihr Programm auch auf logische Fehler. 


24 FILE DATA 


Falsche Eingabe-Variable 


Diese Fehlermeldung kann nur beim Einlesen von einer Datei 
auftreten (INPUT# oder GET#). In diesem Falle wurde ver¬ 
sucht eine numerische Variable (z.B. A oder A%) mit Buch¬ 
staben oder Sonderzeichen zu versehen. Prüfen Sie die Zahl 
Ihrer Trennzeichen in der Datei oder auch den Dateinamen, 
vielleicht haben Sie nur die falsche Datei angesprochen. 


3 FILE OPEN Datei bereits offen 


Der ‘FILE OPEN'-Fehler tritt nur beim OPEN-Befehl auf, 
wenn eine Datei geöffnet werden soll, die bereits ange¬ 
sprochen wurde. Flaben Sie eine logische Dateinummer ein 
zweitesmal verwendet? 


4 FILE NOT FOUND Datei nicht gefunden 


Dieser Fehler bezieht sich nur auf Programmdateien und 
kann somit nur bei den Befehlen LOAD und VERIFY auftreten, 
allerdings sowohl bei der Floppy als auch bei dem Kasset¬ 
tenrekorder. Beim Kassettenrekorder kann dieser Befehl 
auch noch beim öffnen einer Datei zum Lesen (OPEN) gegeben 
sein. 


2 FILE NOT OPEN Datei nicht offen 


Dieser Fehler tritt bei INPUT#-, GET#- oder PRINT#-Befeh- 
len sowie CMD auf, wenn eine Datei angesprochen wird (lo¬ 
gische Dateinummer) die vorher nicht geöffnet oder bereits 
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wieder geschlossen wurde. Vielleicht haben Sie sich aber 
auch nur bei der Eingabe der logischen Dateinummer ver¬ 
tippt. 


25 FORMULA TOO COMPLEX Zu komplizierter Stringausdruck 


Ein FOMULA TOO KOMPLEX ERROR tritt auf, wenn Sie mit zu 
vielen Stringbearbeitungsbefehlen (MID$, RIGHT$, LEFT$ und 
STR$) arbeiten. Hier hilft das Aufteilen in mehrere Anwei¬ 
sungen. Läßt sich Ihr Programm anschließend nicht mehr 
auslisten, so hilft manchmal die Eingabe von POKE 24,0. 


21 ILLEGAL DIRECT Nicht erlaubtes Direktkommando 


Dieser Fehler wird durch die Eingabe von GET, GET#, INPUT, 
INPUT# und DEF FN() ausgelöst, wenn Sie diese im Direktmo¬ 
dus eingeben. Da die Direktbefehle den Basic-Eingabepuffer 
benützen, würde er bei den obengenannten Befehlen gleich¬ 
zeitig zwei Funktionen besitzen, was nicht erlaubt ist. 
Für INPUT bzw. INPUT# kann man dies durch LEST bzw. LEST# 
(Kapitel 2.2.9.4) umgehen. 


9 ILLEGAL DEVICE Falsche Gerätnummer 


Eine falsche Gerätenummer kann z.B. 3 bei LOAD/SAVE sein. 


14 ILLEGAL QUANTITY Unerlaubter Wert 


Der Fehler ILLEGAL QUANTITY tritt auf, wenn Sie die Defi¬ 
nitionsbereiche der einzelnen Parameter oder Variablenty¬ 
pen überschreiten. 


Im Bytebereich liegen die zugelassenen Werte zwichen 0 und 
255 und so führen u.a. folgende Befehle mit größeren oder 
kleineren Daten auf ein ILLEGAL QUANTITY ERRQR: 

QN, WAIT, PQKE, QPEN, CAP, SPC, ASC, CHR$, LEFT$, MID$, 
RIGHTS. 
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Der Integerbereich geht von -32767 bis 32768. Dieser Be¬ 
reich kann durch Integer-Variablen nach mathematischen 
Operationen aber auch durch die logischen Operatoren 

NOT, AND und OR 

ausgelöst werden. 


Im Adreßbereich (16-Bit Werte/O bis 65535) können die Be¬ 
fehle 

WAIT, POKE, PEEK und SYS 

einen Eehler auslösen und bei den mathematischen Opera¬ 
tionen 

SQR, LOG und ATN sowie (Pfeil nach oben/Potenzieren) 

sind die üblichen «athematisehen Einschränkungen zu 
beachten. 


29 LOAD eingelesenes Programn nicht in 

Ordnung 


Bei Verwendung von Kassetten wird mit dem SAVE-Kommando 
das Programm zweimal hintereinander auf Kassette geschrie¬ 
ben und bei dem Ladevorgang das erste Programm in den 
Hauptspeicher geladen und anschließend mit dem zweiten 
Programm verifiziert. Treten hier Unstimmigkeiten auf (es 
kann durchaus die zweite Programmspeicherung defekt sein), 
so wird ein LOAD ERROR ausgegeben. Wie dieser umgangen 
werden kann, ist in Kapitel 4 beschrieben. 


8 MISSING FILE NAME Dateiname fehlt 


Dieser Eehler tritt auf, wenn Sie eine Datei ansprechen 
und als Dateiname eine leere Zeichenreihe angeben (z.B. 
bei LOAD/SAVE) 
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10 NEXT KITHOUT FOR NEXT ohne FOR 


Der Fehler mit der Nummer 10 tritt auf, wenn das Programm 
auf ein NEXT stößt, aber keine FOR...NEXT-Schleife begon¬ 
nen wurde. Prüfen Sie Ihr Programm auf logische Fehler. 


6 NOT INPUT FILE Keine Eingabedatei 


Dieser Fehler tritt wiederum nur bei Kassettenrekordern 
auf. Hier wurde zum Lesen die falsche Sekundäradresse 
eingegeben (muß zum Lesen '0' sein). 


7 NOT OUTPUT FILE Keine Ausgabedatei 


Analog zu dem eben genannten Fehler ist hier die Sekundär¬ 
adresse wahrscheinlich 0, während Sie die Datei zum 
Schreiben öffnen wollten. Die Sekundäradresse muß zum 
Schreiben '1' oder '2' sein. 


13 OUT OF DATA Zuwenig DATA-Zeilen 


Dieser Fehler wird durch den READ-Befehl ausgelöst, wenn 
in den DATA-Zeilen zu wenig Daten zum Einlesen zur Ver¬ 
fügung stehen. Achtung: Stehen zu viele Daten in DATA- 
Zeilen, kann der Rechner natürlich nicht wissen, ob diese 
später noch verwendet werden. Ein Nichtauftreten dieses 
Fehlers ist also kein Kriterium für die korrekte Anzahl 
von Daten. Prüfen Sie auch sorgfältig die Reihenfolge der 
Daten, um logische Fehler zu vermeiden. 


16 OUT OF MEMORY Kein freier Speicher mehr, 

Stacküberlauf 


Dieser Fehler tritt dann auf, wenn Sie mit Ihrem Programm 
und den Daten den gültigen Arbeitsbereich für ein Basic- 
Programm ausgefüllt haben. Benutzen Sie die im Kapitel 1 
angegebenen Hinweise zum Speicherplatz sparen. 
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Haben Sie noch genug freien Speicher, so liegt der Fehler 
in einem Stacküberlauf, d.h. der Stack für die Rückkehr¬ 
adressen von GOSUB... RETURN und FOR...NEXT kann keine wei¬ 
teren Daten mehr aufnehmen. 

Prüfen Sie in diesem Fall, ob eine andere Struktur der 
Unterprogramme möglich ist, wobei es nur auf die Tiefe von 
ineinandergeschachtelten Unterprogrammen ankommt. Unter¬ 
programme, die nur einmal aufgerufen werden, können - wenn 
Sie die Zeilennummern nicht ändern wollen mit GOTO'Anfang' 
... GOTO'weiter' konstruiert werden. Haben Sie mehrere 
Einsprungstellen, muß eine etwas aufwendigere Konstruktion 
herhalten. Versehen Sie das Unterprogramm mit einem 
zusätzlichen Eingabeparameter und verzweigen Sie aufgrund 
dieses Parameters mittels des Befehls ON A GOTO X,Y,Z. 

Beispiel: 

100 GOSUB 10000 

110 ... andere Anweisungen 

350 GOSUB 10000 

360 ... andere Anweisungen 

570 GOSUB 10000 

580 ... andere Anweisungen 

10000 Anweisungen ... 

10999 RETURN 

wird dann zu: 

100 HI=1 : GOTO 10000 
110 ... andere Anweisungen 

350 HI=2 : GOTO 10000 
360 ... andere Anweisungen 

570 HI=3 : GOTO 10000 
580 ... andere Anweisungen 

10000 Anweisungen ... 

10999 ON HI GOTO 110,360,580 


FOR...NEXT-Schleifen können Sie durch einen Zähler mit 
folgender Programmkonstruktion übergehen: 


1 = 1+1 

IF I LT ■Endekr iter ium’ GOTO ’l.Anweisung der Schleife' 
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Aber es brauchen nicht alle Schleifen und Unterprogramme 
umgewandelt zu werden; meist reichen ein oder zwei Schlei¬ 
fen aus. Auch die Reihenfolge ist nicht von Bedeutung: 
Nehmen sie die Schleife / das Unterprogramm, was Sie am 
leichtesten ändern können. 


15 OVERFLOW Oberlauf des Zahlenbereiches 


Diese Fehlermeldung erscheint ähnlich dem ILLEGAL QUANTITY 
ERROR, wenn Sie bei Fließkommazahlen den gültigen Zahlen¬ 
bereich (-1E38 bis +1E38) über- oder unterschreiten. 


12 RETURN IITHOUT GOSUB/RETURN ohne GOSUB 


Fehlernummer 12 kann nur durch den Befehl 'RETURN' ausge¬ 
löst werden. Ähnlich dem NEXT WITHOUT FOR ERROR wurde hier 
das Ende eines Unterprogrammes erreicht, ohne daß ein 
Unterprogramm aufgerufen wurde. Neben dem Auftreten in der 
üblichen Testphase tritt dieser Fehler häufig auf, wenn 
Sie das Programm während des Laufes abgebrochen haben und 
nach Änderung einer Zeile mit CONT weitermachen wollen, 
während das Programm zum Zeitpunkt des Abbruches in einem 
Unterprogramm war. 


19 REDIM'D ARRAY Feld bereits dimensioniert 


Der REDIM'D ARRAY ERROR tritt auf, wenn Sie eine Variable 
ein zweitesmal dimensionieren wollen, da nur einmal dimen¬ 
sioniert werden darf. Der Fehler tritt häufig auf, wenn 
die Dimensionierung innerhalb einer Schleife steht, aber 
auch bei einer Dimensionierung, wenn vorher einem Element 
dieses Feldes im Bereich 0 bis 10 bereits ein Wert zuge¬ 
ordnet wurde und das Feld damit angesprochen wurde. 


23 STRING TOO LONG Zeichenreihe zu lang 

Ein STRING TOO LONG ERROR tritt auf, wenn Sie mittels 
einer Zeichenreihenoperation ('+’) einer Zeichenreihe mehr 
als 255 Zeichen zuweisen wollen. Bei einem Input# von 
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einer Datei wird dieser Fehler gemeldet, wenn Sie mehr als 
80 Zeichen ohne Carriage Return (CHR$(13)) einiesen wol¬ 
len. Bei Dateinamen liegt die Grenze bei 16 Zeichen. 


11 SYNTAX Fehlerhafter Befehl 


Ein Syntaxfehler tritt meistens auf, wenn Sie sich ver¬ 
schrieben haben, d.h. wenn Sie einen Befehl verwendet 
haben, der vom Interpreter nicht verstanden wird. Achten 
Sie auch auf gleiche Zahl von öffnenden wie schließenden 
Klammern, was besonders bei umfangreichen Zeichenreihen¬ 
operationen oder Zahl/String-Konvertierungen verkommen 
kann. Aber auch zuviele oder zuwenige Trennzeichen, wie 
Kommas oder Doppelpunkte, führen zu einem Syntax-Fehler. 
Auch Zeilennummern, die größer als 63999 sind, lehnt der 
Interpreter mit einem SYNTAX ERROR ab. In einigen Fällen 
tritt auch der SYNTAX ERROR an Stelle eines lELEGAL 
QUANTITY ERRORS. 


1 TOO MANY FILES Zuviele Dateien geöffnet 


Dieser Fehler kann nur bei einem OPEN-Befehl auftreten, da 
nie mehr als 10 Dateien geöffnet sein können. Bei einem 
weiteren OPEN-Befehl tritt dieser Fehler auf, wobei auch 
wieder der Merker für die Anzahl der Dateien zurückgesetzt 
wird (siehe FILE OPEN ERROR). 


22 TYPE MISMATCH Falsche Variablentypen (String, 

Zahlen) 


Wenn Sie Zeichenreihenkonstanten und Zeichenreihenvariab¬ 
len auf der einen Seite und Zahlvariablen und Zahlkonstan¬ 
ten auf der anderen Seite gegenseitig zuordnen, so tritt 
ein TYPE MISMATCH ERROR auf. Hier schaffen die Basic- 
Befehle VAL() und STR$() Abhilfe. Vielleicht haben Sie 
auch nur ein zuviel oder zuwenig an einer Variablen. 


17 UNDEF’D STATEMENT Zeilennuramer nicht vorhanden 


Bei RUN (Zeilennummer), ON (Variable), GOSUB (Zeilennum¬ 
mer), GOTO (Zeilennummer), GOSUB (Zeilennummer) oder THEN 
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(Zeilennummer) tritt dieser Fehler auf, wenn Sie eine Zei¬ 
lennummer angeben, die bisher noch nicht spezifiziert 
wurde. Dies ist häufig beim Löschen von REM-Zeilen der 
Fall, wenn diese angesprochen werden. Abhilfe schafft eine 
leere Zeile mit REM, sofern keine logischen Fehler vorlie¬ 
gen. 


27 UNDEF’D FUNCTION Funktion nicht definiert 


Hier kann nur die Anweisung FN() den Fehler auslösen, wenn 
die angegebene Funktion vorher nicht definiert wurde. 
Achtung: Ein Definieren irgendwo innerhalb des Programmes 
ist nicht sinnvoll, da das Programm beim Auftreten von 
FN() bereits die Definition mit DEF FN() passiert haben 
muß. 


28 VERIFY Fehler bei Prograamöberprüfung 


Sowohl beim Kassettenrekorder als auch bei der Floppy hat 
man die Möglichkeit, das soeben gespeicherte Programm mit 
dem VERIFY-Befeh 1 zu verifizieren. Wenn es auch bei der 
Floppy seltener gebraucht wird, so ist es beim Kassetten¬ 
rekorder ein sehr hilfreiches Mittel. Tritt nach dem Veri¬ 
fizieren ein VERIFY ERROR auf, so sollte man das Programm 
nochmals speichern. 


Hinweise ohne Programmabbruch 


REDO FROM START Nochmal eingeben 


Wurde bei einem INPUT-Befehl eine Zahl angefordert und Sie 
geben ein nichtnumerisches Zeichen ein oder sind Anfüh¬ 
rungszeichen gesetzt, so wird der INPUT-Befehl vom Basic- 
Interpreter nochmals ausgeführt, D.h. Sie können Ihre 
Eingabe wiederholen. 
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EXTRA IGNORED Ein Teil der Daten wird ignoriert 


Auch dieser Fehler tritt bei INPUT auf, geht aber nach der 
Eingabe nicht auf diesen Befehl zurück. Die Meldung ent¬ 
steht, wenn Sie in einer angeforderten Zeichenreihe ein 
Komma oder einen Doppelpunkt eingeben, ohne daß weitere 
Variablen die hinteren Stringteile aufnehmen können. 

Die Probleme mit INPUT können durch die Routine ’Textzeile 
lesen' aus Kapitel 2.2.9 oder dem Input-Ersatz aus Kapitel 
4.1 umgangen werden. 


Raum für Notizen: 
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5.11.2 Fehlermeldungen von der Floppy 


Allgemeine Übersicht (Einlesen mit INPUT#15,A,B$,C,D) 

A B$ CD 



Keine Fehler 




00 

OK 

0 

0 

Alles in Ordnung 

01 

FILES SCRATCHED 

Z 

0 

C enthält Anzahl 
gelöschter Dateien 

73 

CBM DOS V2.6 V 170 

0 

0 

Meldung der DOS-Ver- 





sion 


Lesefehler 




20 

READ ERROR 

T 

s 

Kein Block ’header' 

21 

READ ERROR 

T 

s 

Kein Synchronisa¬ 
tionszeichen 

22 

READ ERROR 

T 

s 

Datenblock nicht 
vorhanden 

23 

READ ERROR 

T 

s 

Prüfsummenfeh 1er im 
Datenblock 

24 

READ ERROR 

T 

s 

Byte wurde falsch 
dekodiert 

27 

READ ERROR 

T 

s 

Prüfsummenfeh 1er im 
' header' 

71 

DIR ERROR 

0 

0 

Directory Fehler 


Schreibfehler 




25 

WRITE ERROR 

T 

s 

Sehreib-/Prüffehler 

28 

WRITE ERROR 

T 

s 

Datenblock zu lang 


Syntax Fehler 




30 

SYNTAX ERROR 

0 

0 

Allgemeine Syntax 

31 

SYNTAX ERROR 

0 

0 

Ungültiges Kommando 

32 

SYNTAX ERROR 

0 

0 

Zu langes Kommando 

33 

SYNTAX ERROR 

0 

0 

Ungültiger Dateiname 

34 

SYNTAX ERROR 

0 

0 

Dateiname fehlt 

39 

SYNTAX ERROR 

0 

0 

Ungültiges Kommando 
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Bedienungsfehler 


72 

DISK FULL 

T 

S 

Diskette voll 

29 

DISK ID MISMATCH 

T 

S 

Disk ID stimmt nicht 
übe rein 

74 

DRIVE NOT READY 

0 

0 

Laufwerk enthält 
keine Diskette (oder 
termische Überla¬ 
stung) 

63 

FILE EXISTS 

0 

0 

Datei existiert be¬ 
reits 

62 

FILE NOT FOUND 

0 

0 

Datei wurde nicht 
gefunden 

61 

FILE NOT OPEN 

0 

0 

Datei ist nicht 
■ offen‘ 

52 

FILE TOO LARGE 

T 

s 

Recordnummer ist zu 
hoch 

64 

FILE TYPE MISMATCH 

0 

0 

Date itypendurchein¬ 
ander 

67 

66 

ILLEGAL SYSTEM T OR S 

ILLEGAL TRACK AND 

T 

s 

unerlaubte Spur oder 
Sektor 

unerlaubte Spur oder 


SEKTOR 

T 

s 

Sektor 

65 

NO BLOCK 

T 

s 

Block nicht frei 

70 

NO CHANNEL 

0 

0 

Kein Kanal frei 

51 

OVERFLOW IN RECORD 

T 

s 

Record ist zu kurz 
für die Daten 

50 

RECORD NOT PRESENT 

T 

s 

Record ist nicht 
vorhanden 

60 

WRITE FILE OPEN 

0 

0 

Datei bereits zum 
Schreiben geöffnet 
Schreibschutz 'ge¬ 
klebt ' 

26 

WRITE PROTECT ON 

T 

s 


Ein großer Teil der Fehler (Lesefehler, Schreibfehler und 
Syntaxfehler) dienen der korrekten Speicherung der Daten 
auf Diskette und somit dem Anwender. In Kapitel 2 haben 
wir ein kurzes Programm aufgezeigt, mit dem die Fehler¬ 
meldungen von der Floppy abgefragt werden können. 

Achten Sie darauf, an den richtigen Stellen die Fehler von 
der Floppy abzufragen, da durch ein neues Floppy-Kommando 
in der Regel diese Fehlermeldung wieder überschrieben 
wird. Lesen Sie also die Fehlermeldung unmittelbar nach 
jedem Floppykommando (was sehr zeitaufwendig ist, weil der 
Rechner auf die Floppy warten muß) oder unmittelbar vor 
jedem Floppykommando (was einer genauen Programmkonzeption 
bedarf). 



354 


Kapitel 5 


Auch das Blinken der roten Kontrolleuchte weist auf einen 
Floppyfehler hin. 


Abhilfe bei Lese- und Schreibfehlern 

Bei Lesefehlern sollte man nicht gleich die Diskette weg¬ 
werfen, sondern erneut - auch mehrmals - einen Lesevorgang 
versuchen. Manchmal hilft auch das neue Zentrieren der 
Diskette innerhalb der Schutzhülle (von Hand). Falls Sie 
trotz Lesefehler noch lesen können, sollten Sie jedoch 
diese Diskette mit äußerster Vorsicht handhaben und 
zunächst ein Backup machen. 

Bei Schreibfehlern ist die Sache nicht ganz so gravierend. 
Auf jeden Fall sollten Sie eine neue Diskette heranziehen 
und die anderen Daten von der Diskette gegebenenfalls ko¬ 
pieren. 


Syntaxfehler 


30/39 allgemeiner Syntaxfehler / falscher Befehl 


Diesen Fehler erhalten Sie, wenn Sie die Zeichenreihe, die 
ein Kommando an die Floppy übergibt, fehlerhaft aufbauen. 
Dies kann mehrere Ursachen haben: 

- ohne vorhergehende '0', '1' oder 

- zwischen Ziel und Quelldatei ist kein '=' 

- zwischen mehreren Quellennamen kein 

- führende Leerzeichen im Kommando 


31 Ungültiges Kommando 


Ein ungültiges Kommando hat meist einen Lingabefehler als 
Ursache. 


32 Zu langes Kommando 


Es dürfen nicht mehr als 58 Zeichen in den Kommandostring 
eingetragen werden. 
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33 Ungültiger Dateiname 


Beachten Sie, daß der Dateiname nicht länger als 16 Zei¬ 
chen lang sein darf und nicht alle Sonderzeichen zulässig 
sind. Auch kann das im OPEN- oder SAVE-Befehl an 
falscher Stelle verwendet worden sein. Beim Lesen und 
Schreiben wird manchmal ab dem 17. Zeichen abgeschnitten. 

Achten Sie auch auf die verschiedene Zahl von Namen bei 
den Kommandos N (mindestens 1), S (mindestens 1), R (genau 
2), und C (mindestens 2). 


73 CBM DOS V2.6 V 170 Meldung der DOS-Version 


Diese Meldung finden Sie direkt nach dem Einschalten der 
Floppy im Fehlerkanal. Sie erscheint auch, wenn Sie auf 
eine Diskette schreiben wollen, die mit einem anderen 
Commodore Rechner formatiert wurde. Näheres dazu siehe 
Floppy-Handbuch auf Seite 39. 


71 DIR ERROR 


Block availible Map defekt 


Die BAM stellt das Inhaltsverzeichnis der Diskette für die 
einzelnen Blöcke dar. In ihr ist festgehalten, welche 
Blöcke bereits durch Dateien genutzt sind und welche noch 
für den Benutzer verwendbar sind. Durch ein Reinitiali- 
sieren kann manchmal der Fehler behoben werden, was aller¬ 
dings zur Folge hat, daß die von offenen sequentiellen 
Dateien genutzten Blöcke der BAM wieder zugeordnet werden 
und somit die Daten verloren sind. Läßt sich die BAM nicht 
mehr einladen, so ist die Diskette wertlos, da sie nicht 
mehr gelesen werden kann. 


72 DISK FULL 


Diskette voll 


Diese Meldung erscheint nicht nur, wenn alle 664 Blöcke 
der Diskette belegt sind, sondern auch, wenn die maximale 
Anzahl von 144 Einträgen in der Datei erreicht ist. Lö¬ 
schen Sie über den Kommandokanal Dateien oder formatieren 
Sie mit Hilfe des Kommandokanals eine neue Diskette, bevor 
das Programm verloren geht. 
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29 DISK ID MISMATCH Identifikationen der Dis¬ 

ketten stimmen nicht überein 


Beim Initialisieren erhält die Diskette eine zweistellige 
Identifikationsnummer (ID). Legen Sie eine neue Diskette 
ein, so muß diese zunächst initialisiert werden, was im 
Normalfall die Floppy für Sie erledigt. Treten Probleme 
auf, so können Sie die Initialisierung auch von Hand 
durchführen mit: OPEN 1,8,15,"I" : CLOSEI 


74 DRIVE NOT READY keine Diskette im Laufwerk / 

thermische Überlastung 


Sinn dieses Befehls ist es, den Benutzer darauf hinzuwei¬ 
sen, daß sich keine Diskette im Laufwerk befindet. Noch 
wichtiger ist jedoch, die Meldung bei Auftreten einer 
thermischen Überlastung, wenn Sie die Floppy über längere 
Zeit in Gebrauch hatten, ohne diese abzuschalten. In den 
meisten Fällen ist dann zwar noch ein Lesen von Daten mög¬ 
lich, jedoch kein Speichern mehr, wodurch sich natürlich 
die Informationsdichte auf Ihrer Diskette langsam verrin¬ 
gert, wenn Sie in der Testphase immer wieder neue Versio¬ 
nen 'speichern'. Bei längerem Gebrauch sollten Sie auf 
jeden Fall die Kontrollampe Ihrer Floppy im Auge behalten 
und entsprechend reagieren. Ein Ventilator schafft hier 
eine kleine Abhilfe. 


63 FILE EXISTS Datei existiert bereits 


Wollen Sie eine Programm- oder Datendatei überschreiben, 
so erhalten Sie die Meldung FILE EXISTS. Wollen Sie eine 
andere Programmversion unter dem gleichen Namen speichern, 
so können Sie einerseits die Datei mit dem Kommando 'S:' 
über den Kommandokanal löschen und dann die Datei erneut 
abspeichern (sichere Methode) oder beim SAVE-Befehl ein 
'Klammeraffe:' vor den Dateinamen setzen (schnelle 
Methode). 
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62 FILE NOT FOUND 


Datei nicht gefunden 


Dies tritt bei lesendem Zugriff auf Dateien auf. Datei 
angelegt? Schreibfehler? Siehe auch unter Basic-Feh1er- 
me Idungen. 


61 FILE NOT OPEN 


Datei nicht offen 


Trotz gleicher Wirkung unterscheidet sich der Floppy- 
Fehler vom gleichnamigen Fehler im Rechner. Im vorlie¬ 
genden Fall ist die logische Datei im Rechner zwar noch 
offen, aber auf der Floppy schon geschlossen. Dies pas¬ 
siert z.B. beim Schließen des Kommando-Kanales. 


52 FILE TOO LARGE 


Zu hohe Datensatznummer 


Nur bei Direktzugriffsdateien tritt dieser Fehler auf. 
Einerseits kann die Datensatznummer zu hoch sein, ande¬ 
rerseits kann aber auch die Diskette voll sein, so daß 
nach Ausführen des Schreibens dieses Datensatzes ein 'DISK 
FULL' gemeldet würde. 


64 FILE TYPE MISMATCH Falscher Dateityp 


Hier wurde versucht, eine Direktzugriffsdatei als sequen¬ 
tielle Datei anzusprechen oder umgekehrt, oder eine von 
beiden Möglichkeiten in Verbindung mit einer Programmda¬ 
te i. 


67 ILLEGAL SYSTEM T OR S Unerlaubte Spur oder Sektor 


Bei einem Direktzugriffsbefehl auf Blöcke wurde eine nicht 
zulässige Spur oder ein nicht zulässiger Sektor innerhalb 
der Spur angegeben. 
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66 ILLEGAL TRACK AND SECTOR Unerlaubte Spur oder Sektor 


Siehe letzte Fehlermeldung 


65 NO BLOCK Block besetzt 


Dieser Fehler tritt nur in Verbindung mit dem Direktzu¬ 
griffsbefehl ’B-A' auf, wenn der gewünschte Block nicht 
frei ist. Die beiden letzten Daten der Fehlermeldung geben 
den nächsten freien Block mit höherer Nummer an. 


70 NO CHANNEL 


Kein Kanal frei 


Wenn mehr Datenkanäle geöffnet werden sollen als zur 
Verfügung stehen, oder ein direkt angesprochener Kanal 
belegt ist, tritt dieser Fehler auf. 


51 OVERFLOW IN RECORD 


Datensatz ist zu kurz 


Die Daten, die in den Datensatz (bei Direktzugriffsdaten) 
geschrieben werden sollen, überschreiten die zu Beginn 
festgelegte Datensatzlänge. Trennzeichen (sogenannte 
Delimiter) sind dabei mitzuzählen. 


50 RECORD NOT PRESENT Datensatz nicht vorhanden 


Entweder haben Sie einen Datensatz, der nicht existiert, 
direkt angesprochen, oder bei sequentiellem Durchgang 
durch eine Direktzugriffsdatei den letzten Datensatz 
bereits gelesen und das Dateiende erreicht. Dieser Fehler 
taucht auch auf, wenn Sie eine relative Datei mit falscher 
Satzlänge öffnen wollen. 



Tabellen und Diagramme 


359 


60 WRITE FILE OPEN Datei bereits zum Schreiben 

geöffnet 


Wird dieser Fehler ausgegeben, so versuchen Sie eine Datei 
zum Schreiben zu öffnen, die nicht geschlossen wurde. 
Obwohl auf eine Datei durch mehrere logische Dateinummern 
zum Lesen zugegriffen werden kann, darf auf eine Datei, 
auf die schreibend zugegriffen werden soll, nur diese 
Datei mit der einen logischen Dateinummer zugreifen. Auch 
ein lesender Zugriff ist ausgeschlossen. 


26 WRITE PROTECT ON Schreibschutz angebracht 


Die Schreibschutzkerbe auf der linken Seite Ihrer Diskette 
(beim Einschieben gesehen) ist zugeklebt, was einen 
schreibenden Zugriff auf die Daten verhindert. 
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Anhang 2 : Vergleichsoperatoren 


Aus drucktechnischen Gründen wurden 
gende Operatoren in Anlehnung an 
sprachen, umbenannt: 


in diesem Buch fol- 
andere Programmier- 


LT 

kleiner als 

- Less Then 

GT 

größer als 

- Greater Than 

LE 

kleiner gleich 

- Less or Equal 

GE 

größer gleich 

- Greater or Equal 

NE 

ungleich 

- Not Equal 

** 

Potenzierungsoperator 'hoch' 
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Anhang 3 : Basic-Loader der Erweiterungen 


Damit Sie ohne weitere Hilfsmittel wie Assembler oder Mo¬ 
nitor die Maschinenprogramme der Basic-Erweiterungen ein¬ 
geben können, bilden wir hier ein Basic-Programm ab, das 
den Maschinencode in DATA-Zeilen gespeichert hat. Aus 
Speicherplatzgründen haben wir zwei Basic-Loader-Programme 
abgebildet, das erste für Maschinenprogramme im Bereich 
$C000 bis $CBFF, das zweite für den Bereich $8E00 bis 
$9FFF. Der Vorspann zu beiden Programmen ist fast gleich, 
so daß Sie die Zeilen bis 1000 zweimal verwenden können. 

Wie in Kapitel 2.2 beschrieben, brauchen Sie nicht alle 
DATA-Zeilen einzugeben, wenn Sie nur bestimmte Erweite¬ 
rungen benötigen. Aus diesem Grund ist es auch nicht sinn¬ 
voll, die Prüfsumme über alle Datas abzuprüfen. Statt 
dessen haben wir für jede Zeile eine Prüfsumme angegeben, 
so daß Sie auch sofort sehen, wo Sie sich evtl, vertippt 
h a be n. 

Vom Programm aus ist die Zeilennummer der aktuellen DATA- 
Zeile kontrollierbar, so daß es auch möglich ist, zu prü¬ 
fen, ob die Zeilennummer korrekt ist. In diesem Programm 
sind nur Zeilennummern zugelassen, die durch 16 teilbar 
sind. Außerdem kann die korrekte Anzahl von DATA's in der 
Zeile (16 Werte + 1 Prüfsumme) gechecked werden. Die Zei¬ 
lennummer ist gleichzeitig die Adresse, in welche das 
erste DATA dieser Zeile gePOKEd wird. 

Wenn alle DATA-Zeilen korrekt waren, wird der beschriebene 
Speicherbereich auf Floppy gespeichert. Zum Speichern auf 
Kassettenrecorder müssen Sie in Zeile 600 das ',8' durch 
',1,1' ersetzen. Als Dateiname für den ersten Teil der 
Basic-Erweiterungen wurde "El’ gewählt, ein kurzer Name, 
damit er schnell getippt werden kann. 
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100 

110 

120 

130 

140 

150 

160 

170 

IBO 

190 

210 

220 

230 

240 

250 

260 

270 

200 

290 

300 

310 

320 

330 

340 

350 

360 

370 

300 

390 

400 

410 

420 

430 

440 

450 

460 

470 

400 

490 

500 

600 

610 

620 

630 

640 

650 

660 

670 


REM *** 
REM *** 
REM *** 
REM 

REM *** 
REM *** 
REM 

REM *** 
REM *** 
REM *** 
BA=49152 
BE=52223 


BASIC-LOADER-PROGRAMM *** 

FUER MAOCHINENROUTINEN *** 

AUO KAPITEL 2.2 *** 

TEIL 1: BEREICH *COOO-^CBFF *** 
(49152-52223) *** 

DIE ZEILEN-NUMMERN DER DATA-ZEILEN 
SIND GLEICH DER ZIELADRESSE !! 

JE DATA-ZEILE EINE PRUEFSUMME 
; REM BEREICHANFANG 
: REM BEREICHENDE 


DEF FN D(X)=PEEK(X)+256*PEEK(X+1) 

GS=0 : REM GESAMTPRUEFSUMME 

D1=BA : REM NAECHSTE ZEILENNR. 

ZS=0 : REM ZEILENPRUEFSUMME 

READ A : REM 1. ELEMENT LESEN 
D=FN D(63): REM NUMMER DER DATA-ZEILE 
PRINT"DATA-ZEILE";D; 

IF D<BA THEN PRINT"ZEILENNR. ZU KLEIN": 
IF D>BE THEN PRINT"ZEILENNR. ZU GROSS": 
IF D=16*INT(D/16)THEN 340 
PRINT"ZEILENNR. NICHT DURCH 16 TEILBAR 


STOP 

STOP 


POKE D,A:ZS=ZS+A 
FOR 1=1 TO 15 
READ A 

IF A>255 THEN PRINT"FALSCHER WERT":STOP 
POKE D+I,A:ZS=ZS+A 
NEXT 
READ A 

IF FN D(63)<>D THEN PRINT"ZEILE ZU KURZ":STOP 
PRINT"PRUEFSUMME "; 

IF ZSOA THEN PR INT" FALSCH": STOP 
IF ZS=A THEN PRINT"OK" 

IF D>D1 THEN PRINT"ZEILE";Dl;"FEHLT":D1=D1+16: 

GOTO 450 

D1=D1+16 


GS=GS+ZS 


IF D+16<BE THEN 260 
PRINT"GESAMTPRUEFSUMME";GS 
END 

SYS 57012 "E1",0 :REM DATEINAME 
POKE 193,BA-256*INT(BA/256) 

POKE 194,INT(BA/256) 

POKE 700,193 

POKE 701,BE-256*INT(BE/256) 

POKE 7Q2,INT(BE/256) 

SYS 65496 :REM SAVE 

END 


<199> 
<053> 
<136> 
<017> 
<251> 
<162> 
<047> 
<136> 
<243> 
<06B> 
<114> 
<234> 
< 100 > 
<255> 
<077 > 
<045> 
<12B> 
<234> 
< 122 > 
<055> 
<094> 
<113> 
<052> 
<206> 
< 022 > 
<049> 
< 100 > 
<233> 
<009> 
<0B9> 
<051 > 
<19B> 
<139> 
< 002 > 

<154> 

< 122 > 

< 020 > 

<050> 

<103> 

<117> 

< 110 > 

<014> 

<162> 

<119> 

<055> 

<199> 

<05B> 

<032> 
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Hier nun das Basic-Programm zum Laden des zweiten Teils 
der Basic-Erweiterungen. Im Bereich bis Adresse 36864 
($9000) ist nur die Integer-DiVision und das Rahmenpro¬ 
gramm zur Verwendung als TEST-Funktion enthalten. Da diese 
selten benötigt wird, können Sie die Zeilen 36352 bis 
36848 im allgemeinen weglassen. Im folgenden Bereich 36864 
bis 37872 haben wir die Sprite-Befehle aus #5# unterge¬ 
bracht. Der Bereich von 36888 bis 40432 beinhaltet die 
Grafik-Erweiterungen, und zwar zusätzlich zu denjenigen 
aus Kapitel 2 noch die aus #4# und #8#. Von 40448 bis 
40944 stehen dann die Routinen zur Ein-/Ausgabe-Unter- 
stützung. 

Insgesamt stehen Ihnen folgende zusätzliche Befehle zur 
Verfügung, wenn Sie alle DATA-Zeilen eingeben: 


SprIte-Befehle 

FAHRT,NR,G,RI 
FAHRTAUS 

GRENZEN,NR,L,0,R,U,REE 
SPRITE,NR,PX,PY 
SPRITE,NR 


Sprite bewegen 

Bewegung aller Sprites anhalten 
Grenzen für Sprite setzen 
Sprite setzen 
Sprite löschen 


Grafik-Befehle 

BLOCK PF,0X,0Y,UX,UY 

GRLAD DN$,8 

GRLOE 

GRMISCH DN$,8 
GR SPEI DN$,8 
KREIS PF,MX,MY,RX,RY 
LINIE PF,AX,AY,EX,EY 
RADIUS PF,MX,MY,RX,RY,RW 
RECHT PF,0X,0Y,UX,UY 
SCROLL AL 

ZEICHEN PF,MX,MY,AD 


Dabei haben die Parameter 

Parameter Bedeutung 

AD 
AL 
DN$ 

G 
L 

MX 


Block zeichnen 

Grafik laden 

Grafik löschen 

Grafik mischen 

Grafik speichern 

Kreis zeichnen 

Linie ziehen 

Radius zeichnen 

Rechteck zeichnen 

Grafikbildschirm rollen 

eigenes Zeichen ausgeben 


folgende Bedeutung: 


Anfangsadresse bei eigenen Zeichen 

Anzahl der Linien 

Dateiname 

Geschwindigkeit 

linke Grenze 

X-Koordinate Mittelpunkt 
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MY 

Y-Koordinate 

Mittelpunkt 

NR 

Spritenummer 


0 

obere Grenze 


OX 

X-Koordinate 

obere linke Ecke 

OY 

Y-Koordinate 

obere linke Ecke 

PF 

Punktfarbe 


PX 

X-Koordinate 

eines Punktes 

PY 

Y-Koordinate 

eines Punktes 

R 

rechte Grenze 


REF 

Reflexion 


RI 

Richtung 


RW 

Radiuswinkel 


RX 

Radius in X-Richtung 

RY 

Radius in Y-Richtung 

U 

untere Grenze 


UX 

X-Koordinate 

untere rechte Ecke 

UY 

Y-Koordinate 

untere rechte Ecke 

ZF 

Zeichenfarbe 



Raum für Notizen; 
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100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

600 

610 

620 

630 

640 

650 

660 

670 


REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

REM 

POKE 


*** BASIC-L8ADER-PR0GRAMM *** 

*** FUER MASCHINENROUTINEN *** 

*** AUS KAPITEL 2.2 *** 

*** TEIL 2; BEREICH 4:BE00-4:9FFF *** 

*** (36352-40959) *** 


*** DIE ZEILEN-NUMMERN DER DATA-ZEILEN 
*** SIND GLEICH DER ZIELADRESSE !! 

*** JE DATA-ZEILE EINE PRUEFSUMME 
56,142 : REM BASIC-RAM BEGRENZEN 
BA=36352 ; REM BEREICHANFANG 
BE=40959 : REM BEREICHENDE 
DEF FN D(X)=PEEK(X)+256*PEEK(X+1) 

GS=0 ; REM GESAMTPRUEFSUMME 

D1=BA : REM NAECHSTE ZEILENNR. 

ZS=0 : REM ZEILENPRUEFSUMME 

READ A : REM 1. ELEMENT LESEN 
D=FN D(63): REM NUMMER DER DATA-ZEILE 
PRINT"DATA-ZEILE";D; 

IF D<BA THEN PRINT"ZEILENNR. ZU KLEIN";STOP 
IF D>BE THEN PRINT"ZEILENNR. ZU GROSS";STOP 
IF D=16*INT(D/16)THEN 340 

PRINT"ZEILENNR. NICHT DURCH 16 TEILBAR !" 


POKE D,A;ZS=ZS+A 
FOR 1=1 TO 15 
READ A 

IF A>255 THEN PRINT"FALSCHER WERT";STOP 


POKE D+I,A;ZS=ZS+A 

NEXT 

READ A 

IF FN D(63)<>D THEN PRINT"ZEILE ZU KURZ";STOP 
PRINT"PRUEFSUMME "; 

IF ZSOA THEN PRINT"FALSCH"; STOP 
IF ZS=A THEN PRINT"OK" 

IF D>D1 THEN PRINT"ZEILE";Dl;"FEHLT";D1=D1+16; 

GOTO 450 

D1=D1+16 

GS=GS+ZS 


IF D+16<BE THEN 260 
PRINT"GESAMTPRUEFSUMME";GS 
END 

SYS 57812 "E2",8 ;REM DATEINAME 
POKE 193,BA-256*INT(BA/256) 

POKE 194,INT(BA/256) 

POKE 780,193 

POKE 781,BE-256*INT(BE/256) 

POKE 782,INT(BE/256) 

SYS 65496 ;REM SAVE 

END 


<199> 

<053> 

<136> 

<017> 

<000> 

< 173> 
<047> 

< 136 > 
<243> 
<068> 
<101 > 
< 112 > 
<247> 

< 100 > 
<255> 
<077 > 
<045> 
<12B> 
<234> 
< 122 > 
<055> 
<094> 
< 113> 
<052> 
<206> 
< 022 > 
<049> 
< 100 > 
<233> 
<009> 
<089> 
<051> 
<19B> 
<139> 
< 002 > 

<154> 

< 122 > 

< 020 > 

<05B> 

<103> 

<117> 

<111> 

<014> 

<162> 

<119> 

<055> 

<199> 

<05B> 

<032> 
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Anhang 4: Hex-Listlng der Basic-Erwelterungen 


Haben Sie ein Monitor-Programm, können Sie die Basic-Er- 
weiterungen auch hexadezimal mit Hilfe des unten abgebil¬ 
deten Listings eingeben. Sie können dabei natürlich eben¬ 
falls die Bereiche weglassen, die Sie nicht benötigen. Die 
zusätzlichen Befehle aus #4#, #5# und #8# sind hier eben¬ 
falls enthalten. Die Beschreibung dieser Befehle lesen Sie 
bitte im Anhang 3 nach; die entsprechenden Speicherberei¬ 
che sind hexadezimal (vgl. auch Kapitel 2.2): 


TEST-Funk tion 




$8E00 

bis 

$8EFF 

Integer-Division 
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$8FFF 
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Graf ik-Befeh le 

aus 

Kapite1 
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$9400 
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#4# und 
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$96A3 

bis 
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$9E00 
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15 
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AD 
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14 
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15 
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90 
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49 
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24 
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20 

30 

42 

59 

54 
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18 

69 

12 

CBCO 

D8 

20 

EB 

CB 

AO 

OA 

Bl 

A7 

20 

EB 

CB 

AO 

09 

Bl 

A7 

20 

CBDO 

EB 

CB 

AO 

08 

Bl 

A7 

20 

EO 

CB 

4C 

CA 

B4 

4A 

4A 

4A 

4A 

CBEO 

29 

OF 

09 

30 

A4 

AB 

91 

62 

E6 

AB 

60 

48 

20 

DC 

CB 

68 

CBFO 

20 

EO 

CB 

A9 

3A 

20 

E4 

CB 

60 

BA 

AF 

AF 

AF 

AF 

AF 

FF 
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Anhana 5 : Interoretercodes und Abkürzunaen 


ABS 

A 

SHIFT/B 

A 1 

AND 

A 

SHIFT/N 

A ■ 

ASC 

A 

SHIFT/S 

A'hI' 

ATN 

A 

SHIFT/T 

AI 

CHR^: 

C 

SHIFT/H 

C 1 

CLOSE 

CL 

SHIFT/0 

CLI. 

CLR 

C 

SHIFT/L 

CI. 

CMD 

C 

SHIFT/M 

C\ 

CONT 

C 

SHIFT/0 

C! 

DATA 

D 

SHIFT/A 

D'l' 

DEF 

D 

SHIFT/E 

D 

DIM 

D 

SHIFT/I 

D , 

END 

E 

SHIFT/N 

E,. 

EXP 

E 

SHIFT/X 

Ei-f. 

FQR 

F 

SHIFT/0 

Fl 

FRE 

F 

SHIFT/R 

F. 

GET 

G 

SHIFT/E 

G 

GGSUB 

GO 

SHIFT/S 

GO‘i|i' 

GOTO 

G 

SHIFT/0 

G! 

INFUT# 

I 

SHIFT/N 

I 

LEFTT 

LE 

SHIFT/F 

LE 

LET 

L 

SHIFT/E 

L. 

LIST 

L 

SHIFT/I 

L , 

LQAD 

L 

SHIFT/0 

L!. 

MIDT 

M 

SHIFT/I 

M , 

NEXT 

N 

SHIFT/E 

N 

NOT 

N 

SHIFT/0 

NI” 

OPEN 

0 

SHIFT/F 

0.1 

FEEK 

P 

SHIFT/E 

P 

POKE 

P 

SHIFT/0 

PI 

PRINT 




PRINT# 

P 

SHIFT/R 

P. 

READ 

R 

SHIFT/E 

R“ 

RESTORE 

RE 

SHIFT/S 

RE«»' 

RIGHTT 

R 

SHIFT/I 

R . 

RND 

R 

SHIFT/N 

R.. 

RETURN 

RE 

SHIFT/T 

REI 

RUN 

R 

SHIFT/U 

R ,■ 

SAVE 

S 

SHIFT/A 

S'l' 

SGN 

S 

SHIFT/G 

Sl 


SIN 

S 

SHIFT/I 

S-, 

SPC ( 

S 

SHIFT/P 

S 1 

STEP 

ST 

SHIFT/E 

ST 

STOP 

S 

SHIFT/T 

Si 

STRT 

ST 

SHIFT/R 

ST 

SQR 

S 

SHIFT/Q 

s» 

SYS 

S 

SHIFT/Y 

S I 

TAB ( 

T 

SHIFT/A 

T't' 

THEN 

T 

SHIFT/H 

T ; 

USR 

U 

SHIFT/S 

0* 

VAL 

V 

SHIFT/A 

v* 

VERIFY 

V 

SHIFT/E 

V. 

WA IT 

w 

SHIFT/A 

W'r 
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Anhang 6 : Stichwortverzeichnis 


**... 364 

16-Bit-PEEK. 139f 

16-Bit-PEEK in RAM unter ROM. 141f 

16-Bit-POKE. 140f 

24-St unden-Uhr. 167ff 


A 

Abrollen, weiches (scroll). 255 

Adress-Kont ro 1 Ireg i Ster. 256 

Adress-Parameter. 122 

Adressbus. 210ff 

Adresse des Bildschirmspeichers.... 256 

Adresse des Zeichengenerators. 256 

Adressen, wichtige. 241f 

Ändern der Funktionstastenbelegung. 194 

Alarmzeit setzen. 165f 

Allgemeine Routinen. 17ff 

Analog/D ig ita 1-Wa ndler. 84 

Analogschalter. 209f 

AND. 54ff 

Anschlußbelegung User-Port. 206 

Anzahl der offenen Dateien. 222 

Arithmetisches Element auswerten... 319 

Arrays. 64 

ASCFEP. 129f 

ASCII-Code in Bildschirm-Code umw.. 219 

ASCII-Codes. 331 

Assembler. 106 

ATN-Anschluß. 207,213,214 

Attack. 260f 

Aud io-Video-Port. 215f 

AUS-Befehl. 112,120 

Ausblenden des Basic-ROM's. 249 

Ausgabeband. 43 

Ausgang , ana loger. 205 

Ausgang , d ig ita 1er. 205 

Austausch von RAM-Bereichen. 144f 

Autostart. 320f 

AVL-Bäume. 34 
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B 

B-Bäume. 34 

BAD SUBSCRIPT. 342 

Bandpassfilter. 262 

Basic und Kernal-ROM ausblenden.... 250 

Basic-Bef ehlsze iger. 113ff 

Basic-Erwe iterung. 134ff 

Basic-Erwe iterung abschalten. 112 

Basic-Feh lerme Idungen. 340ff 

Basic-Loader. 106 

Basic-RAM. Ulf 

Basic-ROM ausblenden. 249 

Basic-Routinen. 109f 

Basic-Uti lities. 77ff 

Basic-Vektoren. 111 

Basic-Warmstart. 317 

Basic-Zeiger. 242 

Befehl ausführen. 319 

Befehle,neue. 120f 

Bef eh 1 s-Dekod ierro ut i ne. 111 

Betriebssystem-Routinen. 299ff 

Bildschirm ausschalten. 255 

Bildschirm-Code. 219 

Bildschirm-RAM verlegen. 220 

Bildschirmspeicher, Adresse. 256 

Bildschirmzeile, momentane. 227 

BIN$. 120 

Binär (Konvertierung). 55,131 

Binär-Bäume. 30,34 

Binärzahl in Dezimalzahl umwandeln. 68 

BININT. 131f 

Boolsche Operatoren. 54ff 


C 

CAN’T CONTINUE. 342 

CHAR. 120 

Charakter-Wert der letzten gedrück¬ 
ten Taste. 234 

CHAREN-Leitung. 99,247ff 

CHARKOP. 99,120,143f 

CHEEK. 120,137f 

CHR$-Codes. 331ff 

CHR GET-Routi ne. 242f 

CIA. 85,94,206f 

CIA-Register. 265ff 
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CLK-Anschluß. 213 

CNT-Anschluß. 207 

Complex Interface Adapter. 265ff 

Control-Port. 78f,84,209f 

Controller... 213f 

Cursor an/aus. 221 

Cursor , Farbwechsel. 224 

Cursorgeschwindigkeit ändern. 221 

Cursorpositionierung. 86f,123 


D 

DATA-An Schluß. 213 

Data-Direction-Register. 268 

DATA-Zeilen generieren. 101 

Dateien, offene — schließen. 222 

Dateien, Anzahl der offenen. 222 

Dateinummer bestimmen. 156 

Dateiparameter in der Zero-Page.... 224 

Daten-Reg i Ster. 265 

Datenbus. 210ff 

Datenrichtungsregister. 241,266 

Datum, platzsparend speichern. 51ff 

Datum, Plausibilitätsprüfung. 49f 

Datum, Selektieren nach. 53f 

Datum, Sortieren nach. 52f 

Dauerfunktion. 222 

Decay. 260f 

DEEK. 139f 

DEFFN. 88 

Dekodieren einer Zeile. 319 

Dekodieren von Basic-Code. 154f 

Dekodieren von Befehlen. 113ff 

Delete. 222 

DEVICE NOT PRESENT. 342 

Dezimal-String. 129 

Dezimalzahl in Binärzahl umwandeln. 68 

Dezimalzahl umwandeln. 69ff 

Dichtefunktion. 96 

Digitales Signal.. 206f 

DIR ERROR. 356 

Directory anzeigen. 161f 

Directory ohne Programmverlust. 224 

DISK.. 120,152ff 

DISK FULL. 356 

DISK ID MISMATCH. 357 

Disk-Status bestimmen. 93f,157 

Dis ketten-Inhalts Verzeichnis. 161f 
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Dividieren (16 Bit durch 16 Bit)... 163f 

DIVISION BY ZERO. 343 

DMA-Betrieb. 211 

DOKE. 120,140f 

DREEK. 120,141f 

DRIVE NOT READY. 357 

Drucker-Anschluß. 212ff 

Druckersteuerze ichen. 334 


E 

Ein-Phasen-Mischvorgang.. 42 

E i nga be-Wartesch le i f e. 318 

Eingabeband. 43 

Eingabekanal..... 156 

E i ngang , a na leger. 205 

Eingang , di g i ta 1er. 205 

Einschaltbelegung. 248 

Erweiterte Funktionstastenbelegung. 193 

Erweiterte PEEK-Funktion. 137 

Erweiterte POKE-Funktion. 137 

Erweiterte VAL-Funktion. 115ff,135 

Erweiterter Hintergrund-Modus. 255 

Erwe it erungs sehn it tste 1 le. 210ff 

Expansion-Port. 210ff 

Experimentierschaltungen. 208 

Exponent. 122 

EXROM-Signal. 211 

EXTRA IGNORED. 351 


F 

Farb-RAM. 176f 

Farb-Register. 256f 

Farben für Grafik setzen. 176f 

Farbwechsel unter dem Cursor. 224 

Fehler-Routine. 317 

Feh lerüber s icht. 341 

Fehlermeldungen. 340ff 

Fehlermeldungen des KERNAL. 300 

Fe Ider... 64 

FILE DATA. 343 

FILE EXISTS. 357 

FILE NOT FOUND. 343 

FILE NOT OPEN. 343 
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FILE OPEN. 343 

EILE TOO LARGE. 358 

EILE TYPE MISMATCH. 358 

Eile-Parameter. 224 

Filter. 198f 

F i 1 ter-Kont ro 11-Reg i s ter. 262 

Fi Iterart. 198 

Filterfrequenz. 198 

Finkein. 232 

FLAG-Anschluß. 207,216 

Fließkomma. 127 

Fließkommazahlen. 122 

Floppy-Anschluß. 212ff 

Floppy-Bedienungsfehler. 353 

Floppy-Fehlerkanal. 214 

F loppy-Feh lerme Idungen. 352ff 

Floppy-Routinen. 152ff 

F loppy-Syntaxfeh 1er. 354 

FLPASC. 130 

FLPINT. 128 

FLPSGI. 129 

FORMULA TOO COMPLEX. 344 

Freier Speicherplatz. 225 

Frequenz-Tabelle. 262ff 

FRMEVL-Routi ne. 122ff,151 

Funktionen. 116ff 

Funktions-Dekod ierrouti ne. 111 

Funktionstasten programmieren. 187ff 

Funktion Staaten-Belegung,e rweiterte 193 

Funktionstastenbelegung ändern. 194 

Funktionsweise serieller Bus. 213f 


G 

GAME-Signal. 211 

GE. 364 

Gedrückte Taste. 234 

Geräteadresse. 214 

Gerätenummern. 338 

GRAFEIN. 120 

Grafik ausschalten. 178f 

Grafik einschalten. 175ff 

Grafik laden. 147 

Grafik-Steuerregister. 255f 

Grafikbefehle. 172ff 

Grafikmodus umschalten. 177 

Grafikspeicher. 255ff 

Grafikspeicher lö chen. 175 















































Anha ng 


401 


GRAUS. 120 

GREIN. 82,120 

GT. 364 


H 

Hüllkurve. 196f 

Hül 1 kur ven-Reg ister. 262 

Hardware Reset. 230 

Heap-Sort, allgemeines. 29f 

HEX$. 120 

Hex-Dez-Ta be 1 le. 330 

Hex-Listing. 106,Anhang 

Hexadezimal. 130 

Hexadezimalzahlen umwandeln. 69f 

HEXINI. 130f 

Hilfsroutinen für Floppy. 153f 

Hintergrund-Modus, erweiterter. 255 

HIRAM-Le itung. 247ff 

Hochauflösende Grafik. 172ff 

Hochkomma-Modus. 192 

Hoch passf i Iter. 262 


I 

IC 7406. 208 

ICR-Register. 85 

IDIV. 163f 

lEC-Bus. 212f 

ILLEGAL DEVICE. 344 

ILLEGAL DIRECT. 344 

ILLEGAL QUANTITY. 344 

ILLEGAL SYSTEM T OR S. 358 

ILLEGAL TRACK AND SECTOR. 359 

Impulsbreite. 260f 

INDEX. 120,150f 

Indexfunktion. 67,150f 

Initialisierung für Basic-Erwei- 

terung. llOff 

INPUT-Ersatz. 160f,195,225 

Input-Puffer. 91 

INTBIN. 134 

Integer. 127 

Integer-D i Vision. 124,163f 

Integer-Werte. 122 
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Interrupt aus-/e inscha Iten. 85,99 

Interrupt-Flag-Register. 256 

Interrupt-Kontrol 1-Regist er. 266,270 

Interrupt-Manager. 118ff 

Interrupt-Manager, Sprungtabelle... 110,171,1871 

Interrupt-Manager-Masken-Byte. 119 

Interrupt-Routinen. 119 

Interrupts. 207 

INTFLP. 127 

INTHEX. 133 

Invers-Modus. 226 

IRQ-Interrupt. 208 

IRQ-Leitung. 211 

IRQ-Vektor. 112 

0 

Ookerzeichen in Datensätzen. 60ff 

Ooystick. 265 

Joystick-Abfrage. 78,207 

Ooyst ick-Ansch 1 uß. 209f 

Joystick-Simulation über lastatur.. 226 

Joyst ick-Steuerung. 78ff 

Joystick-Werte am Control-Port. 80f 


K 

Kaltstart. 88f 

Kassettenport. 207,216 

Kaufmännische Zahldarstellung. 58f 

KERNAL-Fehlerme Idungen. 300 

KERNAL-Routi nen. 299ff 

KERNAL-Vektoren. 305ff 

Key-Bit. 260f 

Keyclick. 170ff 

Klangfilter-Funktion. 262 

Klangkontroll-Register. 260f 

Klartext, Umwandlung in. 155 

Kodieren einer Zeile. 318 

Kollision-Sprite / Hintergrund. 256 

Ko 11 i s ion-Spr i te / Sprite. 256 

Kollisions-Register. 256 

Komfortable lonerzeugung. 195ff 

Kontrol 1-Register. 270f 

Kontrollport. 265 

Kubikwurzel. 98 
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L 


Löschen von Zeilen auf Bildschirm.. 235 

LAD. 120,147f 

Laden ohne Veränderung d. Basiczeiq 147f 

Lauf. 43 

LE. 364 

Leerzeichen, anhängende eliminieren 58 

LESP. 120,152ff 

LEST. 120,152ff 

Letzte Zeilennummer. 227 

Leuchtdioden am User-Port. 208 

Lichtgriffel. 256 

Light Pen. 256 

Light-Pen-Anschluß. 209 

Listen während Programmablauf. 227 

L i s ten-Kommando. 214 

Listschutz ein/aus. 227 

LOAD ERROR. 345 

LOAD ERROR umgehen. 228 

Logische Dateien. 215 

Logische Verknüpfungen. 54ff 

LORAM-Le itung. 247ff 

LT. 364 


M 


Mantisse. 

Maschinenprogramm in Rechner. 

Mas Chi nenprogramme. 

Maschinenroutinen. 

Masse. 

Maxsort. 

Menütechniken. 

Merge. 

Minsort. 

Misch verfahren. 

MISSING FILE NAME. 

Mnemotechnische Bezeichnungen. 

Monitor-Programm. 

Motorsteuerung Kassettenrecorder. . . 

Multi-Colour-Modus. 

Multiplizieren (16 Bit mit 8 Bit).. 


122 

106,Anhang 

106f 

105ff 

206,209,211f,213,215, 
216 
28f 
24f f 
228 
28 f 
42ff 
345 
17 
106 
216 
176f f 
184f 
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N 


NE. 

Neue Befehle. 

NEXT WITHOUT FOR. 

NICHT-Verknüpfung. 

NM I-In terrupt. 

NMI-Le i tung. 

NO BLOCK. 

NO CHANNEL. 

NOT. 

NOT INPUT FILE. 

NOT OUTPUT FILE. 

Nullen, führende anfügen 
Numerische Parameter.... 


0 


ODER. 

Offene Dateien. 

Oktalzahlen umwandeln. 

Operatoren, Prioritäten. 

OR. 

OUT OF DATA. 

OUT OF MEMORY. 

OVERFLOW. 

OVERFLOW IN RECORD. 

Overlay, Stringvariablen bei 


P 


Paddle-An Schluß. 

Paddle-Feuerknöpfe. 

Paddle-Steuerung. 

Paddies, Umschaltung Paddlepaare... 

Paddlesatzauswahl. 

Parameterübergabe über temporäre 

Dateien. 

Parameterübergabe an Maschinenpro¬ 
gramme . 

Parameterübergabe durch Overlay.... 
Parameterübergabe zwischen Program¬ 
men . 

Parameterübergabe über freies RAM.. 


364 

120f 

346 

54ff 

172ff,208 
212 
359 
359 
54f f 
346 
346 
57 
122 


54f f 
222 
72 
336 
54f f 
346 
346 
348 
359 
88 


209f 
265 
83f f 
84f 
265 

91f 

121 

87f 

87ff 

91 
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Parameterübergabe über Bildschirm.. 89f 

PAUSE. 120,164 

Pause mit Timer. 164ff 

PC-Anschluß. 207 

PEEK. 120 

PEEK in Zeichengenerator. 137f 

PEEK-Funktion , erweiterte. 137 

Peripherie-Geräte. 214f 

Plausibilitätsprüfung für Zahlen... 24 

POKE in RAM unter I/O. 142 

POKE-Funktion , erweiterte. 137 

Port A/B von CIA 2. 207 

Port, Audio-Video-. 215f 

Port, Control-. 209f 

Port, Expansion-. 210ff 

Port, Kassetten-. 216 

Port, Serial-. 212ff 

Port, User-. 206ff 

Port-Register. 267 

Ports. 205ff 

Präfixsuche. 60ff 

Pr imäradresse. 214f 

PRINT#-Befehl. 92 

Prioritäten der Operatoren. 336 

Prioritäts-Register. 256 

Programm retten. 228 

Programm zerstören. 229 

Programmübergabe an Serie 3000. 236 

Programmübergabe an Serie 8000. 236 

Programmübernahme von Serien 2000.. 236 

Programmdatei anzeigen. 161f 

Programmzeile lesen. 158f 

Prozessor-Befehle. 324ff 

Prozessor-Port. 138f f , 216,241 

Prozessor-Register. 123 

PUNKT. 82,120 

Punkt setzen. 179f 

Punktfarbe lesen. 183f 

Punktkoordinaten. 179ff 


Q 

Quicksort. 30f f 
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R 

Rahmenprogramm für Erweiterungen... 108 

RAM unter I/O. 142 

RAM unter ROM. 137f 

RAM-Bereich laden. 229 

RAM-Bereich speichern. 229 

RAM-Bereiche. 144f 

Rastervergleich. 256 

Rasterwert-Register. 255 

Real zeit Uhr. 266 

Rechenzeit verkürzen. 65ff 

Rechnen mit Zeichenreihen. 22f 

RECORD NOT PRESENT. 359 

REDIM'D ARRAY. 348 

REDO FROM START. 350 

REEK. 120,137 

Reg isterübersichten. 241ff 

Rekorderpuffer. 89 

Release. 260f 

REM-Befehle. 64 

Reset. 230 

RESET-Le itung. 206,212,213 

Resonanz-Kontrol 1-Reg ister. 262 

RESTORE-Taste. 172 

RETURN WITHOUT GOSUB. 348 

Reverse-Ze ichen. 100 

Ringmodulation. 260f 

RND. 95 

ROKE. 120,142 

ROM-Routinen. 299ff 

RS 232-Daten-Register. 267 

RUN/STOP - Taste aus/ein. 231f 

Runden. 60 


S 

SAVE-Routine. 148f 

Schaltalgebra. 54ff 

Schleifen optimieren. 65f 

Schließen aller offenen Dateien.... 222 

Sekundäradressen. 214,338 

Selektieren. 35ff 

Selektieren von Zahlen. 38 

Selektieren von Zeichenreihen. 36f 

Selektieren, mehrfaches. 40ff 

Selektieren, Beispiele für. 35f 
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Sequentielle Dateien. 92 

Serial-Port. 212ff 

Serieller Bus. 212ff 

Serieller I/O-PuFfer. 266, 267 

SETTIME. 120,167f 

SGIELP. 128f 

SID-Anschlüsse. 215f 

SID-Register. 260ff 

Signed Integer. 122,128 

Software Reset. 230 

Sortiermöglichkeiten,prinzipielle.. 27 

Sortier verfahren. 27ff 

Sortierverfahren, Aufwand bei. 29 

Sound-Register. 260ff 

SP-Anschluß. 207 

SPEI.. 120,148f 

Speicherübersichten. 241ff 

Speicheraufteilung. 247ff 

Speicheraufteilung für Maschinen¬ 
routinen. 107 

Speichern verhindern. 231 

Speichern von R AM-Bere ichen. 148f 

Speicherplatz sparen. 63ff 

Speicherplatz, freier. 225 

Speicherzellen, spezifizierte. 123 

Spr ite-Ed itor. lOOff 

Spr ite-Positionen. 255 

Sprites. 245ff 

Sprungtabelle. 113f f, 152,173f 

SRQ-Anschluß. 213 

Status-Abfrage. 231 

Statusübersicht. 337 

Steckeranschlüsse. 

206,209,211,213,215,216 

Steuer-Register. 266 

Steuer-Register des SID. 260f 

Steuerzeichen auf Drucker. 334 

STRING TOO LONG. 348 

String-Parameter. 122,150,153 

Stromversorgung. 205,209,211,216 

STRPARL. 153 

STRPARS. 153 

STRZUW. 154 

Sustain. 260f 

SW. 144ff 

SWAP. 99,120,144ff 

Symbolvereinbarungen. 108ff 

Synchronisation. 260f 

SYNTAX ERROR. 349 

Synthetische Steuerzeichen. 232f 

SYS-Aufruf. 106ff 
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SYS-Befehl. 123 


T 

Taktleitung des 6510. 212 

Talk-Kommando. 158,214 

Tastatur-Dekodierung. 317 

Tastaturabfrage. 207 

Tastaturmatrix. 265 

Tas tatur puf f er. 89 

Tastaturpuffer, Zeichen in. 90 

Taste, Character-Wert der letzten... 234 

Taste, gedrückte. 234 

Temporäre Variablen. 64 

TEST. 115 

Textzeichen in Grafik. 185f 

Textzeile lesen. 160f 

TI$. 94 

Tiefpassfilter. 262 

TIME. 120,168f 

Timer. 268f 

Tonerzeugung. 195ff 

TOO MANY EILES. 349 

TYPE MISMATCH. 349 

Typflag. 125 


U 

Uhr. 94f 

Uhrzeit lesen. 168f 

Uhrzeit setzen. 165f 

Umkehrfunktion. 97 

Umrechnungstabelle Hex-Dez. 330 

Umschalten groß/klein. 234 

UND. 54ff 

UNDEE'D FONCTEON. 350 

UNDEF'D STATEMENT. 349 

Unnötige Leerzeichen. 63 

Unta lk-/Unl isten-Kommando. 214 

Unterbrechungs-Flaggenregister. 256 

Unterbrechungs-Kontrol1-Register... 266,270 

Unterprogramme. 64 

User-Port. 206ff 

USR-Funktion auswerten. 320 

Utilities. 77ff 
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V 

VAL. 120 

VAL-Funk t ion, erwe iterte. 115ff,135 

Variablen als Parameter. 122 

Variablen statt Konstanten. 64 

Va r iab len-Oef i n it ion. 17ff 

Var iab len-Ta be 1 le. 87 

Variablenebenen, logische. 19 

Variablenzeiger. 321f 

Vektoren. 246 

VERIFY ERROR. 350 

Verteilungsfunktion. 96 

VIC-Arbe i tsbere ich. 99,207 

VIC-Register. 255 

Video-Ansch 1 uß. 215f 

Video-RAM. 100,144 

VIEW. 120,152 

Vorzeichenbehaftete 16-Bit-Werte... 128f 


W 

Warteschleifen.. 234 

Wechselstrom 9 Volt... 207f 

Weiches Abrollen. 255 

Wellenform. 196f 

Wortreserv i erungen. 108ff 

WRITE EIEE OPEN. 360 

WRITE PROTECT ON. 360 


Z 

ZahIdarste 1 lung, kaufmännische. 58f 

Zahlkonvertierungen. 127ff 

Zahlumwandlungen. 67ff 

Zeichenfarbe ändern. 235 

Zeichengenerator. 137f,185f 

Zeichengenerator ins RAM kopieren.. 143f 

Zeichengenerator lesen. 252 

Zeichengenerator, Adresse. 256 

Zeichenreihe in Zeichenreihe suchen 67 

Zeichensatz. 273ff 

Zeichensatz verlegen. 220 

Zeichensatz ändern. 99f 
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Zeile auf Bildschirm löschen. 235 

Zeile, dekodieren. 319 

Zeile, kodieren. 318 

Zeilen löschen. 222 

Zeilennummer, letzte. 227 

Zeilenwahl.. 255 

Zeitbehandlung mit CIA. 164ff 

Zeitersparnis. 235 

Zero-Page.,. 224,141ff 

Zufallsgenerator. 95 
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Checksumaer 64 


Um Ihnen das Abtippen der Programme zu erleichtern, haben 
wir dem 64er-Heft einen Checksummer entnommen, den wir der 
Vollständigkeit halber an dieser kurz vorstellen wollen: 

Der Checksummer überprüft jede eingegebene Basic-Zeile und 
erspart Ihnen deshalb eine langwierige Fehlersuche. Der 
Checksummer 64 ist ein kleines Maschinenprogramm, das, 
wenn es aktiviert ist, Sie sofort davon unterrichtet, ob 
Sie die jeweilige Programmzeile korrekt eingegeben haben. 


1. Tifjpen Sie den Basic-Lader sorgfältig ein. 


2. Vergessen Sie nicht das Abspeichern vor dem 
Start (RUIM) ! 

3. Wenn Sie den Checksummer 64 zwischenzeitlich 
nicht benutzen, können Sie ihn jederzeit mit 

POKE 1,55 

desaktiVieren. Auch durch Drücken der RUN/ 
STOP- und der RESTORE-Taste wird der Check¬ 
summer 64 desaktiviert. 

Wollen Sie den Checksummer 64 wieder ein¬ 
schalten, so geben Sie 

POKE 1,53 

ein. 


Das Maschinenprogramm bleibt solange erhalten, bis der 
Computer ausgeschaltet, oder, wenn von anderen Programmen 
auf das hinter dem ROM liegende RAM zugegriffen wird. Alle 
Programme in diesem Buch sind mit einer Checksumme ver¬ 
sehen, die am Ende jeder Programmzeile steht. Diese Check¬ 
summe steht zwisclien ‘ Kle i nerze ichen ' und ' ürößerze ichen' . 
Sie wird beim Eintippen des Programms nicht mit eingege- 



412 


Checks um 


ben. Die Zahl zwischen den beiden Zeichen stellt lediglich 
eine Information für Sie dar. Wenn Sie diese Checksumme 
dennoch mit eintippen, werden Sie schnell bemerken, daß 
Sie etwas falsch gemacht haben. Bei aktiviertem Check¬ 
summer 64 wird nämlich nach Eingabe einer Basic-Zeile, die 
mit Return beendet wird, in die linke obere Bildschirmecke 
die Checksumme eingeblendet, die mit der Summe aus dem 
veröffentlichen Listing übereinstimmen muß. Ist das nicht 
der Fall, haben Sie die Zeile anders eingegeben, als sie 
im Listing dargestellt ist. 

Der Checksummer 64 ist so ausgelegt, daß er abiiangig von 
der Zeilennummer und dem Text der Zeile eine Checksumme 
ausgibt. Beim Bilden dieser Checksumme werden Spaces 
(Leertaste) überlesen, was für Sie bedeutet, daß es egal 
ist, wieviel Leerzeichen Sie zwischen den Worten lassen, 
da Sie für den Proqrammablauf ohnehin keine Bedeutung 
h a be n. 


Hinweise zua Lesen von Listings 


Die Listings haben sich ein wenig im Ausdruckformat ver¬ 
ändert, um Ihnen das Eingeben von Programmen wesentlich zu 
erleichtern. 


- Cursorsteuerzeichen und andere Steuerzeichen, 
die schwer zu lesen sind, werden von nun an in 
Klartext in speziellen geschweiften Klammern 
gesetzt. 

Tritt mehrmals hintereinander dasselbe Steuer¬ 
zeichen auf, so wird diese Steuerzeichen-Se¬ 
quenz zusammengefaßt, indem zuerst die Anzahl 
der Wiederholungen dieses Steuerzeichens und 
dann das Steuerzeichen in Klartext ausgegeben 
wird. 

- Alle Commodore-Graf ikzeichen, die über Shift 
zu erreichen sind, werden nicht mehr als 
Grafikzeichen, sondern als Klartextzeichen 
dargestellt. Dabei wird aus dem Zeichen, das 
Sie auf dem Bildschirm sehen, wenn Sie die 
Tastenkombination Shift/A ansprechen, wieder 
ein 'A' (nur im abgedruckten Listing). Um 
dieses ’A' vom normalen 'A' unterscheiden zu 
können, ist es etwas kleiner als das gewöhn¬ 
liche ‘A’ und ist außerdem mit einem Unter- 
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streichungsze ichen versehen. Diese Vereinba¬ 
rung gilt auch für sämtliche andere Commodore- 
Grafikze ichen, die über die SHIFT-Taste zu 
erreichen sind. 


- Entsprechendes gilt für sämtliche Commodore- 
Grafikzeichen, die über die Commodore-Taste zu 
erreichen sind. Hier wird jedoch das jeweilige 
Klartextzeichen nicht unterstrichen, sondern 
übers tr ichen. 


119 REM ••••*«**«•••««««««««««*«««««««« 
20 REM * * 
30 REM * CHECKSUMMER 64 * 
33 REM * * 


36 REM 
40 REM 


(VERSION 2.0) 


64 ER 


COMMODORE 64 


50 REM * 

60 REM * 

70 REM * 

80 REM * * 

90 REM •••••••*•••••««••••«•««•««•«««« 

100 PRINT”CCLR,13SPACE,RVSQN}CHECKSUMMER 6 
4<;rvoff>" 

110 PRINT 

121 SA=820:FOR I=SA TO SA+6:READ A:POKE I, 
A:NEXT I 

122 DATA 133,95,134,96,76,191,163 

130 POKE 8B,0:POKE 89,192:POKE 90,0:POKE 9 
l,192:POKE 780,0:POKE 781,160:SYS SA 
140 POKE 88,0:POKE 89,0:POKE 90,0:POKE 91, 
0:POKE 780,0:POKE 781,224:SYS SA 
150 POKE 1,53:P0KE 42289,96:POKE 42290,228 
160 FÜR 1=58464 TO 58554:READ A:POKE I,A:N 
EXT I 

190 PRINT"{4DOWN,9SPACE>CHECKSUMMER AKTIVI 
ERT. " 

200 PRINT" <;2D0WN>AUSSCHALTEN : POKE 1,55" 
210 PRINT" CDOWN)ANSCHALTEN <:2SPACE}: POKEl, 
53":NEW 

320 DATA 160,2,169,0,133,2,177,95 
330 DATA 240,15,201,32,208,3,200,208 
340 DATA 245,24,101,2,133,2,76,110 
350 DATA 228,192,4,48,241,198,214,165 
360 DATA 214,72,162,3,169,32,157,1 ’ 

370 DATA 4,189,183,228,32,210,255,202 
380 DATA 16,242,166,2,169,0,32,205 
390 DATA 189,169,62,32,210,255,104,133 
400 DATA 214,32,108,229,169,141,32,210 
410 DATA 255,76,128,164,92,72,32,201 
420 DATA 255,170,104,144,1,138,96,9 
430 DATA 60,18,19 


< 175> 
<247> 

< 162> 
<004> 
<014> 
<01 1 > 
<061> 
<031> 
<056> 
<051 > 
<255> 

<025> 

<007> 

<073> 

< 179> 

<244> 

<039> 
<0O1 > 

< 100 > 

<247> 

<050> 

< 171 > 

< 103> 
<239> 

< 153> 
<090> 

< 191 > 
<096> 
<206> 

< 168> 
< 168> 
<093> 
<051> 
< 195> 




Weitere Fachbücher aus unserem Verlagsprogramm 


COMMODORE 64 


Einführungskurs: Commodore 64 

Mai 1984, 276 Seiten 

Die Programmiersprache Basic • Einsatzgebiete des Com¬ 
modore 64-Basic; Grafik, Musik. Dateiverwaltung • mit vielen 
Beispielprogrammen, häufig benötigten Tabellen und nützli¬ 
chen Tips • für Einsleiger und Fortgeschrittene. 

Best.-Nr. MT 685, ISBN: 3-89090-017-8 q.. qq 

(Sfr. 35,—/öS 296,40) UIVI UO,“* 

Commodore 64 — leicht verständlich 

Juni 1984, 154 Seiten 

Informationen für den Computer-Neuling • Installation und In¬ 
betriebnahme • Programmieren in Basic • Grafik und Töne - 
Auswahl von Hardware und Zubehör • Software für Ihren 
Computer ■ die ideale Einführung in das Arbeiten mit Ihrem 
Commodore 64. 

Best.-Nr. MT 700, ISBN: 3-89090-022-4 wym. nn OH 
(Sfr. 27,.'^:/öS 232,40) UIVI ^3,0U 

Ihr Heimcomputer Commodore 64 

August 1984, 296 Seiten 

Alles Wissenswerte im Umgang mit dem Commodore 64 • 
Planung, Kauf und Inbetriebnatime der Anlage • Einsatzferlig 
gekaufter oder selbst erslollter Programme ■ Schwächen 
und Stärken der altbewährten und neuesten Programmier¬ 
sprachen • die gängigsten Software-Angebote für jeden Ein¬ 
steiger. 

Best.-Nr. MT 701, ISBN: 3-89090-044-5 qq 

(Sfr. 35,-/öS 296,40) UIVI üO,“ 

Das Commodore 64-LOGO-Arbeitsbuch 

September 1984, 225 Seiten 

Kinder lernenauf dem Commodore 64 mit der Schildkröte als 
Lehrer; Bilder malen • Grafikeffekte erzeugen • Wörter verar¬ 
beiten ■ Prozeduren und Variablen • Umgang mit Begriffen 
wie: Längenmaß, Winkel. Dreieck, Quadrat. 

Best.-Nr. MT 720, ISBN: 3-89090-063-1 - « - 

(Sfr. 31,30/öS 265,20) UIVI u4,"“ 

35 ausgesuchte Spiele für Ihren Commodore 64 

September 1984, 141 Seiten 

Programmieren Sie selbst 35 faszinierende Spiele • ge¬ 
schrieben in Commodore 64-BASIC • mit Farbe. Grafiken und 
Ton • Vorschläge zur Programmabwandlung • für kreative 
Computerfans, die Ihre Programmierkenntnisse vertiefen 
wollen! 

Best.-Nr. MT 774, ISBN: 3-89090-064-X nRü 0 4 nn 

(Sfr. 23,-/öS 193,40) DM 24,80 

Lehrspielzeug Computer: C 64/VC-20 

Juli 1984, 139 Seiten 

Speziell für Kinder entwickelt führt dieses Buch spielerisch 
in die Basic-Welt des Commodore 64'VC-20 ein -mit vielen 
lehrreichen Spielprogrammen und Grafikmöglichkeiten • klei¬ 
nere Kinder benötigen die Hilfe ihrer sachkundigen Eltern. 

Best.-Nr. MT 695, ISBN: 3-89090-011-9 r\%a na no 

(Sfr. 23,-/öS 193,40) DM 24,80 

Basic mit dem Commodore 64 

April 1984, 320 Seiten 

Ein Basic-Lehrbuch für den jugendlichen Anfänger ■ über¬ 
sichtlich gegliederte Lernprogramme - Altes über INPUT- 
GOTO - Let-Befehle - Editorfunktionen - POKE-Befehle für 
die Grafik • geeignetauchals Leitfaden für Lehrer und Eltern. 
Best.-Nr. MT 657, ISBN: 3-922120-91-1 . - q 

(Sfr. 44,20/öS 374,40) UM 40,— 


Computerspiele & Wissenswertes 

Februar 1984, 156 Seiten 

Eine Sammlung von interessanten und nützlichen Maschi¬ 
nenprogrammen • schnelle binäre Arithmetik • Basic-Erwei- 
terungen - mit unterstützendem Assembler-Listing - für den 
fortgeschrittenen Programmierer. 

Best.-Nr. MT 601, ISBN: 3-922120-62-8 onOH 

(Sfr. 27,50/öS 232,40) UM 20,00 

Best.-Nr. MT 602 (Beispiele auf Diskette) 

(Sfr. 38,—/öS 342,—) OM 38,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Das große Spielebuch — Commodore 64 

Februar 1984, 141 Seiten 

46 Spielprogramme - Wissenswertes über Programmior- 
technik - praxisnahe Hinweise zur Grafikherstellung ■ alles 
über Joystick-und Pnddleansteuerung - das Spielebuch mit 
Lerneffekl, 

Best.-Nr. MT 603, ISBN: 3-922120-63-6 oH OH 

(Sfr. 27,50/öS 232,40) UM 20,OU 

Best.-Nr. MT 604 (Beispiele auf Diskette) 

(Sfr. 38,—/öS 342,—) DM 38,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Spiele für den Commodore 64 

November 1984, 196 Seiten 

Bewährte alte und raffinierte neue Spiele für Ihren Commodo¬ 
re 64 • klar und übersichtlich gegliederte Programme im 
Comrnodore-BASIC • Sie lernen: wie man Unterprogramme 
einsetzt - eine Tabelle aufbauen und verarbeiten • Program¬ 
me testen • mit vielen Programmiertricks • für Anfänger, 
Best.-Nr. MT 792, ISBN: 3-89090-074-7 nRü 04 no 

(Sfr. 23,-/öS 193,40) DM 24,80 

Best.-Nr. MT 795 (Beispiele auf Diskette) 

(Sfr. 38,—/öS 342,—) DM 38,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Computer für Kinder — Ausgabe Commodore 64 

1984, 112 Seiten 

Ein Buch für Kinder und ihre Lehrer • ideal für die erste Be¬ 
gegnung mit Computern, ihren Eigenwilligkeiten und ihren 
unerschöpflichen Möglichkeiten • leichtverständliche Erläu¬ 
terungen rund um den Commodore 64 • alle Programmbei¬ 
spiele in BASIC. 

Best.-Nr. PW 709, ISBN: 3-921803-41-1 oHOH 

(Sfr. 27.50/öS 232,40) UM 20,OU 

Grafik & Musik auf dem Commodare 64 

Oktober 1984, 336 Seiten 

68 gut strukturierte und kommentierte Beispielprogramme 
zur Erzeugung von Sprites und Klangeffekten • Sprite-Tricks 

• Zeichengrafik ■ hochauflösende Grafik • Musik nach Noten 

• spezielle Klangelfekte • Ton und Grafik ■ für fortgeschritte¬ 
ne Anfänger, die alle Möglichkeiten des C64 ausnutzen wol¬ 
len. 

Best.-Nr. MT 743, ISBN: 3-89090-033-X « q 

(Sfr. 35.—/öS 296,40) UM 00, — 

Mehr als 32 Basic-Programme für den 
Commodore 64 

März 1984, 279 Seiten 

Programme speziell für den Commodore 64 ■ umfassende 
praktische Anwendungen • jede Menge Lehr- und Lernhilfen 
■ super Spiele • für Basic-Neulinge und Experten. 

Best.-Nr. MT 613, ISBN: 3-922120-66-0 

(Sfr. 45.10/öS 382,20) UM 48,” 

Best.-Nr. MT 614 (Beispiele auf Diskette) 

(Sfr. 48,—/öS 432,—) DM 48,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 


Die angegebenen Preise sind Ladenpreise 

Sie erhalten Markt&Technik-Bücher bei Ihrem Buchhändler 


Markt&Technik Verlag Aktiengesellschaft Buchverlag. Hans-Pinsel-Str. 2, 8013 Haar 



Weitere Fachbücher aus unserem Verlagsprogramm 


Commodare 64 Listings — Band 1: Spiele 

Oktober 1984, 199 Seiten 

Mil ausführlicher Dokumentation • Spielanleilung • Variablen 
für die Änderung der Spiele - vollständige Listings für; Bürger 
Joe • Nibbler • Zingel Zangel • Universe • Würfelpoker • 
Maze-Mission • der magische Kreis • Todoskommando At¬ 
lantik • Enterprise. 

Best.-Nr. MT 748, ISBN: 3-89090-068-2 risii ns nn 

(Sfr. 23,-/öS 193,40) DM Z4,OU 

Best.-Nr. MT 804 (Beispiele auf Diskette) 

(Sfr. 38,—/öS 342,—) DM 38,—‘ 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Commodore 64 Listings 

Band 2: Oateiverwaltung - Schule Hobby 

Oktober 1984, 179 Seiten 

Ein Buch mit Programmen für die ganze Familie ■ DATAVE — 
Eine Dateiverwaltung • mathematische Funktionen • Konju¬ 
gation und Deklination in Latein • Regressionsanalyse • Bun¬ 
desligatabelle. 

Best.-Nr. MT 766, ISBN; 3-89090-071-2 rikii o it nn 

(Sfr. 23,-/öS 193,40) DM 24,80 

Oer sensible Commodore 64 

Januar 1985, ca. 130 Seiten 

Eine Softwarosammlung zu den technologischen Neuer¬ 
scheinungen im Commodore 64 • für Erstbenutzer wie für 
Experten ein Buch zur optimalen Softwjffonutzung. 

Best.-Nr. PW 727, ISBN: 3-921803-45-4 nn nn 

(Sfr. 27.50/öS 232,40) DM 20,00 

Die Floppy 1541 April 198S, 434 Seiten 

Für alle Programmierer, die mehr über ihre VC 
1541-Floppystation erfahren wollen. Der Vorgang des For- 
matierens • das Schreiben von Files auf Diskelle • die 
Funktionsweise von schnellen Kopier- und Ladeprogram¬ 
men ■ viele fertige Programme • Lesen und Beschreiben 
von defekten Disketten • Für Einsteiger uTid für fortge¬ 
schrittene Maschinensprache-Programmierer. 

Best.-Nr. MT 806, ISBN 3-89090-098-4 .fi 

(Sfr. 45,10/öS 382,20) UM 40,— 

Best.-Nr. MT 710 (Beispiele auf Diskette) 

(Sfr. 38,—/öS 342,-) DM 38,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Commodore 64 — Multiplan 

April 1984, 230 Seiten 

Multiplan jetzt auch für den Commodore 64 • der volle Lei- 
slungsumfang der 16-Bit-Version - Einführung in die Arbeits¬ 
weise von Tabellonkalkulationsprogrammen - praxisnahe 
Beispiele ■ Beschreibung alle Befehle und Funktionen • nicht 
nur für Anfänger. 

Best.-Nr. MT 655, ISBN: 3-922120-89-X «q 

(Sfr. 44,20/öS 374,40) DM 40,“- 

Das Commodore 64-Buch, Bd. 1: 

Ein Leitfaden für Erstanwender 

Mai 1984, 270 Seiten 

Der Commodore 64 und seine Handhabung ■ Einführung tn 
die Grafik - Balkendiagramme Einführung in die Sprilelech- 
nik - Basic-Erweilerungen in Assembler ■ Ein Leitfaden für 
Erslanwender, die sich bereits BASIC-Kennlnisse angeei¬ 
gnet haben. Alle Beispiele auf Diskette erhältlich! 

Best.-Nr. MT 591, ISBN: 3-922120-61-X wym. « q 
(Sfr. 44,20/öS 374,40) UM 40,— 

Best.-Nr. MT 592 (Beispiele auf Diskette) 

(Sfr. 58,—/öS 522,—) DM 58,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Das Commodore 64-Buch, Bd. 2: 

Basic-Spiele 

Mai 1984, 181 Seiten 

Spiele nicht nur zum Abtippen • Programmlisting • Pro- 
grammbeschroibung • Variablenübersichl • Programme 


nach Anleitung frei ergänzbar ■ das ideale Buch, um Program¬ 
mieren spielend zu lernen • für Anfänger. 

Best.-Nr. MT 593, ISBN: 3-922120-68-7 . n q 

(Sfr. 35,—/öS 296,40) UM üO,— 

Best.-Nr. MT 594 (Beispiele auf Diskette) 

(Sfr. 58,—/öS 522,—) DM 58,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Das Commodore 64-Buch, Bd. 3: 

Ein Leitfaden für Fortgeschrittene 

Februar 1984, 206 Seiten 

Alles über Sprites • Wissenswertes über Multi-Color-Grafik ■ 
Assembler/Disassembler - jede Menge Basic-Erweiterun- 
gen • Umgang mit dem Soundgeneralor ■ ein Leitfaden für 
Fortgeschrittene. 

Best.-Nr. MT 595, ISBN: 3-922120-69-5 . n q 

(Sfr. 35,-/öS 296,40) UM üO,— 

Best.-Nr. MT 596 (Beispiele auf Diskette) 

(Sfr. 58,—/öS 522,—) DM 58.—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Das Commodore 64-Buch, Bd. 4: 

Ein Leitfaden für Systemprogrammierer 

März 1984, 261 Seiten 

Einführung in Maschinenprogrammierung • Verknüpfung von 
Maschinenprogrammen mit Basic-Programmen -alles über 
Assembler/Disassembler • Basic-Kenntnisse werden vor¬ 
ausgesetzt! 

Best.-Nr. MT 597, ISBN: 3-922120-70-9 . n q 

(Sfr. 35,—/öS 296,40) UM üO,— 

Best.-Nr. MT 598 (Beispiele auf Diskette) 

(Sfr. 58,—/öS 522,-) DM 58,—* 

' inkl. MwSt. Unverbindliche Preisempfehlung. 

Das Commodore 64-Buch, Bd. 5: 

Ein Leitfaden durch Simon’s Basic 

Juli 1984. 322 Seiten 

Ausführliche Besprechung aller Befehle viele erklärende 
Beispiele • mit kommentierter Asscmbler-Lisling • das richti¬ 
ge Nachschlagewerk für den geübten Commodore 64-Be- 
nulzer. 

Best.-Nr. MT 599, ISBN: 3-922120-71-7 qq 

(Sfr. 35,—/öS 296,40) UM 00, — 

Best.-Nr. MT 600 (Beispiele auf Diskette) 

(Sfr. 58,—/öS 522,—) DM 58,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Das Commodore 64-Buch, Bd. 6: Spiele 

Mai 1984, 190 Seiten 

Programmieren auf dem Commodore 64 spielend gelernt • 
leicht verständliche Spielanleitungen Programmlisting mit 
anschließender Programmbeschreibung ■ Variablenüber¬ 
sicht • Tips zum Ändern und Ergänzen des Programms. 
Best.-Nr. MT 619, ISBN: 89090-072-5 nn 

(Sfr. 35,—/öS 296,40) UM üO,— 

Best.-Nr. MT 620 (Beispiele auf Diskette) 

(Sfr. 58.—/öS 522,—) DM 58,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Das Commodore 64-Buch, Bd. 7; 

Ein Leitfaden für Profis 

August 1984, 210 Seiten 

Der Commodore 64 als Klaviatur Noten schreiben mit hoch¬ 
auflösender Grafik • relative Dateien am Beispiel einer klei¬ 
nen Adreßverwaltung • Joystick und Paddies • Grafikspei¬ 
cher unter Kernal • Interrupt-Manager • für Profis, die die 
letzten Möglichkeiten ihres Commodore 64 ausreizen wol¬ 
len. 

Best.-Nr. MT 731, ISBN: 3-89090-067-4 nn 

(Sfr. 35,-/öS 296,40) UM üO,— 

Best.-Nr. MT 784 (Beispiele auf Diskette) 

(Sfr. 38,—/öS 342,—) DM 38,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 


Die angegebenen Preise sind Ladenpreise 

Sie erhalten Markt&Technik-Bücher bei Ihrem Buchhändler 

Markt & Technik Verlag Aktiengesellschaft Buchverlag, Hans-Pinsel-Str. 2, 8013 Haar 



Weitere Fachbücher aus unserem Verlagsprogramm 


ATARI 


Spiel und Spaß mit dem Atari 

Mai 1964, 338 Seiten 

Einfache Programme in Basic wie man ein Spiel entwickelt 
• Lernstoff trainieren • Zahlen und Logik - Grafik • Farl^en • 
Töne und Musik • den Atari-Computer spielend erforsctien. 

Best.-Nr. MT 672, ISBN: 3-09090-002-X q.. -q 

(Sfr. 38.60/öS 327,60) UlVI 4^,“ 

Lehrspielzeug Computer: Atari 

Juli 1984, 139 Seiten 

Das neue Compuler-Kindert)uch für den Atari 400, 800 und 
1200 • Sptelprogramme und grafische Darstellungen für Kin¬ 
der ab 8 Jahren ■ viele Rechenaufgaben für den kleinon Ein¬ 
stein • so mach! Lernen Freude! 

Best.-Nr. MT 696, ISBN: 3-89090-012-5 riRii o j nn 

(Sfr. 23,-/öS 193,40) DM 24,80 

Spiele für den Atari 

September 1984, 216 Seiten 

Eine unterhaltsame Einweisung in die Atnn-BASIC-Progrnm- 
mierung anhand von bereits bewährten sowie raffinierten 
neuen Computerspielen - wie man ein Programm strukturiert 
Einsatz von Unterprogrammen • Tabellenverarbeitung • be¬ 
wegte Grafiken • Testen von Programmen ■ noch nie hat 
Homo-Computing so viel Spaß gemacht! 

Best.-Nr. MT 678, ISBN: 3-89090-051-8 q.. qq 

(Sfr. 29.50/öS 249,60) UlVI Ot,““ 

Das Atari-Buch, Band 1 

Juli 1984,158 Seiten 

Die grundlegenden Programmiermöglichkeiten für Ihren Atari 
■ mit einem Spiel zum Eingewöhnen ■ Erstellung von Text und 
Grafik ■ Player Missiles • Basic-Besonderheiten • ausführli¬ 
che Assemblerlistings im Anhang ■ ein Einsloiger-Buch, voll¬ 
gepackt mit Informationen. 

Best.-Nr. MT 703, ISBN: 3-89090-039-9 q.. qq 

(Sfr. 29,50/öS 249,60) UlVI 0^,— 

Best.-Nr. MT 783 (Beispiele auf Diskette) 

(Sfr. 38.—/öS 342,—) DM 38,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Das Atari-Buch, Band 2 

Oktober 1984,197 Seiten 

Spezielle Programmiermöglichkeiten und Maschinenpro¬ 
gramme • Basic-Kennlnisse und das Studium des Hand¬ 
buchs (Das Atari-Buch, Bd. 1) werden vorausgesetzt • für al¬ 
le, die die hervorragenden Grafik- und Soundeigenschaften 
des Atari ausnutzen wollen! 

Best.-Nr. MT 704, ISBN: 3-89090-072-0 . q q 

(Sfr. 29,50/öS 249,60) UlVI 0^,— 

Best.-Nr. MT 775 (Beispiele auf Diskette) 

(Sfr. 38.—/öS 342,—) DM 38.—* 

' inkl. MwSt. Unverbindliche Preisempfehlung. 

Atari-Abenteuerspiele 

Juli 1984,148 Seiten 

Wege zur Entwicklung und Ausführung spannender Spiel¬ 
programme; Schntzsuche • Kampf mit Monstern • Das Auge 
des Sternenkriegers. 

Best.-Nr. MT 727, ISBN: 3-89090-035-6 nn OH 

(Sfr. 27,50/öS 232,40) UlVI ^9,0U 

Best.-Nr. MT 728 (Beispiele auf Diskette) 

(Sfr. 38,—/öS 342,—) DM 38,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 


Strategische Computerspiele für Ihren Atari 

Mai 1984, 148 Seiten 

AufbaueinosSpielfeldes • der Bewegungsablauf • Muslorer- 
öffnungen - das Endspiel ■ Dame. Schach, Warp Trog als Bei¬ 
spiele strategischer Spiele • Anleitung zur systematischen 
Fehlersuche ■ für Fortgeschrittene. 

Best.-Nr. MT 681, ISBN: 3-89090-004-6 q.. qq 

(Sfr. 29,50/öS 249,60) UlVI Ut,"“ 

Best.-Nr. MT 682 (Beispiele auf Diskette) 

(Sfr. 38,—/öS 342,—) DM 38,—* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Mein Atari-Computer 

1983, ca. 400 Seiten 

Alles über Aufbau und Bedienung des Atari-Computers • Pro¬ 
grammieren in Basic ■ Grafikfunklionen • Tonerzeiigung • ab¬ 
geleitete Trigonometrische Ftjnktionen - Tabellen zur Znhlen- 
umwandlunri das Standardwerk für Anfänger, 

Best.-Nr. PW 554, ISBN: 3-921803-18-7 wym. |-fj 
(Sfr. 54.30/öS 460,20) UlVI Oo,— 

Sprühende Ideen mit Atari-Grafik 

Januar 1985, ca. 250 Seiten 

Eine Einführung in die Grafikmöglichkeiten des Atari • die Ge¬ 
staltgesetze von Objekten, Farbgebung, Bildschirmenlwürfe 
■ Basic-Kenntnisse erforderlich. 

Best.-Nr, PW 716, ISBN: 3-921803-39-X 

(Sfr. 45,10/öS 382.20) UlVI 43,*“ 

Computer für Kinder — Ausgabe ATARI 

Februar 1985, 114 Seiten 

Ein BASIC-Programmierbuch ausdrücklich für Kinder ge¬ 
schrieben • mit einem besonderen Abschnitt für Lehrer und 
Eltern. 

Best.-Nr. PW 728, ISBN: 3-921803-43-8 mym. nn OH 
(Sfr. 27.50/öS 232,40) UM ZUjOU 

Der Atari als Musikbox 

November 1984. 196 Seiten 

Eine musikalische Einführung in die Computerprogrammie¬ 
rung • was Sie über Resonanz und Harmonie wissen müssen 
- Muoikprogramme in BASIC für zwei, drei und vier Stimmen 
sowie für einen Kanon • besondere Gerauscheffekto eine 
Lieder-Bibliolhek • für Anfänger. 

Best.-Nr. MT 797. ISBN: 3-89090-075-5 

(Sfr. 27.50/öS 232,40) UlVI ^3,OU 

Lerne Basic auf dem Atari 

November 1984, 321 Seiten 

Dieses Buch fuhrt sowohl Kinder als auch Erwachsene in die 
Grundlagen des Atari-Basic ein • Action-Spiele ■ Brettspiele 
• Wortspiele • Hinweise ■ Erklärungen ■ Übungen • amüsant 
und leicht verständlich präsentiert • zum Selbststudium ge¬ 
eignet. 

Best.-Nr. MT 692, ISBN: 3-89090-007-0 q.. qq 

(Sfr. 35,—/öS 296,40) UlVI üO,“" 

Ausgesuchte Atari-Programme mit Listings 

Oktober 1984, 171 Seiten 

Mehr als 25 Programme — vom alltäglichen Kleinkram bis zu 
geschäftlichen Anwendungen und Dienstprogrammen Gi¬ 
rokontoführung - Adressenverzeichnis • Joggingkontrolle - 
für Anfänger, die den Umgang mit dem Computer und die 
Grundbegriffe des Programmiorens lernen wollen. 

Best.-Nr. MT 759, ISBN: 3-89090-070-4 q.. qq 

(Sfr. 29,50/öS 249,60) UlVI Ut,"“ 
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Weitere Fachbücher aus unserem Verlagsprogramm 


Das Atari-Programmierhandbuch 

März 1985, 403 Seiten 

Alles was Sie über die Bedienung und die Programmierung 
Ihres Computers in BASIC wissen müssen • Speicherarten ■ 
grafische Symbole ■ spezielle Funktionen • Zubehörteile ■ 
Organisation eines Programms einschließlich Flußdiagramm 
und ihr Gebrauch ■ der 6502-Pro2essor ■ mit vielen Pro¬ 
grammierbeispielen für den ATARI 800 (400/600) • ein un¬ 
entbehrliches Buch für die richtige Kaufentscheidung! 
Best.-Nr. MT 753, ISBN 3-89090-062-3 
(Sfr. 47,80/öS 405,60) 


DM 52,- 


SCHNEIDER CRC 464 


Der CPC 464 für Ein- und Umsteiger 

Februar 1985, ca. 260 Seiten 

Eine praxisorientierte Spiel- und Arbeitshilfe für den Schnei- 
derCPC 464 • BASIC - Grafik ■ Sound - Tastaturanwendung 
• Kassettenrecordereinsatz • alle Befehle kompakt und sy¬ 
stematisch dargeslellt • modular aufgebaute Beispielpro¬ 
gramme auch zur Textverarbeitung und Datenverwaltung • 
der ideale Grundstock für Ihre CPC 464-Programmbiblio- 
thekl 

Best.-Nr. MT 801, ISBN: 3-89090-090-9 wymm 

(Sfr. 42,30/öS 358,80) UlVI 40,— 


SINCLAIR 


RAM-Speicher, ein 16K-Speicher vereinfacht die Program¬ 
mentwicklung. 

Best.-Nr. MT 706, ISBN: 3-89090-073-9 ^ 1 .. nn OfX 
(Sfr. 27,50/öS 232,40) Um ^a,OU 


ZX-Spectrum Hardware 

Januar 1985, 147 Seiten 

Dieses Buch vermittelt Ihnen ein fundiertes Basiswissen 
über Aufbau und Entwicklung eigener Hardware - Ausführli¬ 
che Beschreibung der einzelnen ICs mit Abbildungen und 
2-System-Schaltplänen • Anschluß einer PIO-Ansteuerung 
von Dezimalanzeigen • Leuchtdioden • Relais • DIL-Schalter 
• Eine akkugepufferte Hardwareuhr mit vierstelliger Anzeige 
■ Soundgenerator mit drei Kanälen. 

Best.-Nr. MT 737, ISBN: 3-89090-092-5 
(Sfr. 27,50/öS 232,40) 


DM 29,80 


TI 99/4A 


21 LISTige Programme für den TI-99/4A 

November 1984, 224 Seiten 

Umfangreiche Spiele aller Art für den TI-99/4A • nützliche 
Utilities ■ Adressenverwaltung - Vokabel-Programm ■ für 
manche Programme ist das Exlended-BASIC-Modul. die 
Speichererweiterung (32 K). ein Disketten-Laufwerk oder 
Joysticks erforderlich! 

Best.-Nr. MT 754, ISBN: 3-89090-065-8 o>t OA 

(Sfr. 23,-/öS 193,40) UlVI ^4,OU 


Maschinencode-Programme für den ZX Spectrum 

Juni 1984, 204 Seiten 

Nützliche Maschinencode-Programme mit Ihrem ZX Spec¬ 
trum ■ Sortierung von Fließkommazahlen ■ Übernahme von 
Parametern direkt von einem Basic-Pro gramm - Flußdia¬ 
gramme • für Profis und solche, die es werden wollen. 

Best.-Nr. MT 702, ISBN: 3-89090-023-2 
(Sfr. 29,50/öS 249,60) 


DM 32,- 


ZX-Spectrum Abenteuerspiele 

September 1984, 208 Seiten 

Die Entstehungsgeschichte der Abenteuerspiele mit reprä¬ 
sentativen Beispielen für jede »Epochei • Ein Programm spe¬ 
ziell für Ihren ZX-Spectrum; »Das Auge des Sternenkriegers«, 
ein Grafik-Abenteuerspiel, das Sie in Atem hält! 

Best.-Nr. MT 712, ISBN: 3-89090-047-X wxmm OA OH 
(Sfr. 27,50/ÖS 232,40) UlVI ^a,OU 


Astronomie-Programme für den ZX-Spectrum 

September 1984, 268 Seiten 

Eine phantastische Reise in die Welt des Kosmos mit Ihrem 
ZX-Spectrum; Der Julianische Kalender ■ Die Mondphasen • 
Eigene Satelliten starten • Kepler s Umlaufbahnen • Die Um¬ 
laufbahn Plutos • Interessant nicht nur für Hobby-Astronome. 
Best.-Nr. MT 732, ISBN: 3-89090-048-8 w^mm aa qa 
(S fr. 27,50/ÖS 232,40) Um ^9,OU 


Schnelles Rechnen mit dem ZX81 

Oktober 1984, 276 Seiten 

Das Betriebssystem • der BASIC-Interpreter ■ Gleitkomma- 
Macro-Befehle zur Verkürzung der Rechenzeiten alte Pro¬ 
grammbeispiele sind lauffähig ntif dem ZX81 mit dem 1K- 


VC 20 


Lerne Basic auf dem VC-20 

August 1984, 320 Seiten 

Das neue Basic-Lehrbuch für den Commodore VC-20 • ein¬ 
fach erklärte Basic-Befehte mit Übungen • viele heiße Action¬ 
spiele • nützliche Programmierlricks • mit ausführlichem Be¬ 
griffslexikon • der Renner für junge Computer-Freaks! 

Best.-Nr. MT 691, ISBN: 3-89090-008-9 

(Sfr. 35,—/öS 296,40) UlVI üO,“ 


Lehrspielzeug Computer: C 64/VC-20 

Juli 1984, 139 Seiten 

Speziell für Kinder entwickelt führt dieses Buch spielerisch 
in die Basic-Welt des Commodore 64/VC-20 ein ■ mit vielen 
lehrreichen Spielprogrammen und Grafikmöglichkeiten • klei¬ 
nere Kinder benötigen die Hilfe ihrer sachkundigen Ellern. 

Best.-Nr. MT 695, ISBN: 3-89090-011-9 o>t DA 

(Sfr. 23,—/öS 193,40) UlVI ^4,OU 


Computer für Kinder — 

Ausgabe Commodore VC 20 

1984, 92 Seiten 

»Computer für Kinder« richtet sich an Kinder im Aller von 8 
bis 13 Jahren, die Interesse für Computer zeigen • unterhalt¬ 
same und leichtverständliche Einführungstexle und Beispie¬ 
le • mit einem besonderen Abschnitt für Lehrer und Eltern. 
Best.-Nr. PW 708, ISBN: 3-921803-40-3 wymm nn OA 
(Sfr. 27,50/ÖS 232,40) UlVI ^a,OU 
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Weitere Fachbücher aus unserem Verlagsprogramm 


Das VC-20>ßuch 

1983, 351 Seiten 

Eine Sammlung gut erklärter Programme • viele Spietebei- 
spiele • einfache kommerzielle Anwendungen. 

Best.-Nr. MT 516, ISBN 3-922120-50-4 
{Sfr. 45,10/öS 382,20) 

Best.-Nr. MT 581 (Kassette) 

(Sfr. 19,90/öS 179,10) DM 19,90* 

Best.-Nr. MT 582 (Diskette) 

(Sfr. 29,90/öS 269,10) DM 29,90* 

* inkl. MwSt. Unverbindliche Preisempfehlung. 

Basic mit dem VC-20 

April 1984, 364 Seiten 

Eine schrittweise Einführung in das Gebiet von VC-20-Basic 
Geräusch- und Musikerzeugung • Drucken von grafischen 
Schriftzeichen • Erstellen eines lauflähigen VC-20- 
Programms ■ Arbeiten mit Zeichenvarlabten, einfachen Fe- 
dervariahlen, READ- und DATA- Befehlen • Zeiclientricks. 
Best.-Nr. MT 649, ISBN 3-922120-86-5 
(Sfr. 35,—/öS 296,40) 

Grafik mit dem VC-20 

April 1984, 202 Seiten 

38 vollständige Programme ■ zahlreiche grafische Darstel¬ 
lungen - alles über hochauflösende Grafik und Multicolor- 
Modus - praktische Anwendungen und Simulationen von 
Kunst über Videospiele, Mathematik, Naturwissenschaften 
bis hin zum kaufmännischen Bereich ■ für Fortgeschrittene 
und Profis. 

Best.-Nr. MT 644, ISBN 3-922120-82-2 

{Sfr. 29.50/öS 249,60) UIVI uZ,“ 

Programme und Tips für VC-20 

1983, 152 Seiten 

Nützliche Hilfsprogramme für die Arbeit mit dem VC-20 - 
kommerzielle Anwendung in der Texivciarbeitung, Fakturie¬ 
rung und Li)gerverwaltung - Möglichkeiten hochauflösender 
Grafik über eine Assemblerroutine unterhaltsame Spielpro¬ 
gramme. 

Best.-Nr. MT 513, ISBN 3-922120-51-2 
(Sfr. 35,—/öS 296,40) 


DM 38,- 


DM 38,- 


DM 49,- 


Programmiersprachen 


Basic für Einsteiger 

Juni 1984, 239 Seiten 


Ein Arbeitsbuch für den absoluten Anlanger - Basic-Anwei- 
sungen Schritt für Schritt erklärt und anhand von einfachen 
Beispielen erläutert • dasboliebte Arbeitsmittel für Lehrkräfte 
und für den interessierten Computorfan, 

Best.-Nr. MT 680. ISBN 3-89090-024-0 q.. nn 

(Sfr. 29,50/öS 249,60) UIVI OZ,— 


Basic-Oialekte im Vergleich 

1983, 105 Seiten 

Konvertierung von Apple-, Commodore- und TRS-80-Pro- 
grammen • Grundlagen der jov.'eiligon Betriebssysteme • Un¬ 
tersuchung verschiedener Basic-Dialekte • alphabetische 
Auflistung aller Befehle ftir die verscfiiedenen Anpassungs¬ 
lichtungen. 

Best.-Nr. MT 564, ISBN 3-922120-53-9 w^mm no 
(Sfr. 29,50/öS 249,60) Um OZ,“* 


Basic-Programmier-Handbuch 

März 1984, 506 Seiten 

Grundlagen • Basic und seine Dialekte - geschäftliche und 
wissenschaftliche Anwendungen ■ Spiele ■ Lernprogramme 
altes über Programmsteuerung ■ Schleifen und Verzwei¬ 
gungen - Amorlisationsprogramm - numerische Funktionen 
Stringfunktionon - Variationen mit PEEK und POKE der 
Zauberwürfel. 

Best.-Nr. MT 658, ISBN 3-922120-92-X 
(Sfr. 71,80/öS 608,40) 


DM 78,- 


77 Basic-Programme 

1980, 208 Seiten 

Eine nützliche Sammlung von Programmlösungen der häufig¬ 
sten Fragestellungen im Kapitalwesen. Statistik und Mathe¬ 
matik sowie im Alltag • 77 Basic-Programme für den CBM- 
Computer sorgfältig getestet und vollständig dokumentiert • 
für Anfänger. 

Best.-Nr. PW 256, ISBN 3-9221803-06-3 
(Sfr. 35,90/öS 304,20) 

MSX Basic 

April 1985, 236 Seiten 
Alles überden neuen Heimcomputerslandard MSX: zusätz¬ 
lich zum »normalen« BASIC können mit insgesamt mehr als 
150 Befehlen und Funktionen Grafiken erstellt, Töne er¬ 
zeugt, Melodien komponiert und ganze Spielhandlungen pro¬ 
grammiert werden ■ 32 Sprites garantieren abwechslungs¬ 
reiche Action-Spiele • die Hardware des MSX-Systems 
nützliche Hinweise zur Dateibehandlung ■ das MSX-BASIC 
anhand der Entwicklung eines Spielszenarios mühelos ler¬ 
nen ■ drei vollständige Spiele: Der eisige Planet, Autorennen 
und Bilder entwerfen ■ mit ausführlicher Befehlsüborsicht • 
für Anfänger! 

Best.-Nr. MT 805, ISBN 3-89090-107-7 
(Sfr. 40,50/öS 343,20) 

Best.-Nr. MT 825 (Beispiele auf Kassette) 

(Sfr. 19,80/öS 178,20) 

* inkl. MwSt. Unverbindliche Preisempfehlung. 


DM 44,- 

DM 19,80* 


DM 39,- 


Das Commodore 64-LOGO-Arbeitsbuch 

September 1984, 225 Seiten 

Kinder lernen auf dem Commodore 64 mit der Schildkröte als 
Lehrer: Bilder malen • Grafikeffekle erzeugen • Wörter verar¬ 
beiten Prozeduren und Variablen • Umgang mit Begriffen 
wie: Langenmaß. Winkel. Dreieck. Quadrat. 

Best.-Nr. MT 720, ISBN 3-89090-063-1 wymm n m 
(Sfr. 31.30/öS 265,20) UIVI ü4,— 


LOGO — Grafik, Sprache, Mathematik 

März 1984. 257 Seiten 

Eine Einführung in LOGO als Lehr- und Lernsprache unter be¬ 
sonderer Berücksichtigung des Apple-LOGO • Grafikproze- 
duron - Zeichonkottenmanipulationen • Probleme der Rekur- 
sivilät • Sprachbildung und Sprachforschung ■ Grundlagen 
der Arithmetik • mit umfassendem Glossar 
Best.-Nr. MT 648, ISBN 3-922120-60-1 
(Sfr. 38.60/öS 327,60) UIVI 4Z,— 


BASIC-Grundkurs mit dem Commodore 64 

März 1985. 377 Seiten 

Ein pra;<isorienlierter Leitfaden für die Programmierung ifi BA¬ 
SIC • dieBesondeiheitendesCommodore-BASIC • umfang¬ 
reiche Befehlsüborsicht ■ Einführung in die aktuelle Thematik 
der Datonkommunikation: BTX oder MailBox • das ideale 
Buch fiji Jungprogrammierer, die ihre Anfangsschwiorigkei- 
ten tiberwindon wollen' 


Best.-Nr. MT 633, ISBN 3-89090-045-3 
(Sfr. 40,50/öS 343,20) 


DM 44,- 
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Weitere Fachbücher aus unserem Verlagsprogramm 


Allgemeininteresse 

Computerchinesisch für Einsteiger 

Juli 1984,107 Seiten 

Ein praxisnahes Lexikon, das Personal Compiiter-Benutijern 
und solchen, die es werden wollen, das Losen von Fachzeit¬ 
schriften, Büchern, Bedienungsanleitungen und Datenblät¬ 
tern erleichtert ■ über 1000 häufig benötigte Fachbegriffe 
klar und verständlich erläutert • mit zahlreichen Abbildungen. 
Best.-Nr. MT 690, ISBN 3-89090-019-4 nn 

{Sfr. 25.90/öS 218,40) UlVI ZO,“- 


Im Land der Abenteuer 

Juni 1984, 146 Seiten 

Ein Lösungsbuch für zahlreiche Computerspiele • Tod in der 
Karibik • Transsylvanien • Unternehmen Asteroid • Das ge¬ 
heimnisvolle Haus • Zauberer und Prinzessin • Das goldene 
Vlies • Zeitzone - Der dunkle Kristall. 

Best.-Nr. MT 699, ISBN 3-89090-021-6 w%mm nf\ nn 
(Sfr. 27,50/öS 232,40) UIVI Za,OU 


Software-Auswahl leicht gemacht 

1983, 423 Seiten 

Über 200 Programme für Personal Computer aus allen An¬ 
wenderbereichen Systemsoflware ■ branchenneulraleund 
branchenorientierle Anwendungssoftware • technisch-wis¬ 
senschaftliche Software • Hardware- und Betriebssyslemrc- 
gisler ■ Anbielerverzoichnis 

Best.-Nr. MT 340, ISBN 3-922120-33-4 nn 

(Sfr. 25.90/öS 218,40) UIVI ZO,— 

Hardware-Auswahl leicht gemacht 

3. völlig überarbeitete und aktualisierte Ausgabe 
1984/85, 485 Seiten 

Die wichtigsten Daten von über 200 Personal-Compulersy- 
stemen sowie die wichtigsten Peripheriegeräte • ausführli- 
ctie Begriffserläuterungen • Checklisten für den Gerätecin- 
kauf • Trendberichte und Bezugsquellen. 

Best.-Nr. MT 350, ISBN 3-922120-64-4 - j-q 

(Sfr. 53,40/öS 452,40) Um 00,“ 

Die Btx-Fibel 

Januar 1984, 119 Seiten 

Eine Einführung in die Einsalzmoglichkeilen, die Funktions¬ 
weise und den Nutzen von Btx im privaten und professionel¬ 
len Bereich • Aufbau, Funktion und Bedienung derGerateoh- 
ne technischen Ballast erklärt • das neue Kommunikations¬ 
system für jedermann. 

Best.-Nr. MT 519, ISBN 3-922120-54-7 wym. onOH 
(Sfr. 27.50/öS 232,40) UIVI Za,OU 


BTX professionell eingesetzt 

August 1984, 287 Seiten 

Alles über den effizienten Einsatz von Bildschirmtexl • völlig 
neue Möglichkeiten in Marketing und Werbung, bei Dienstlei¬ 
stungen, beider Informationsdistribution und Schulung • BTX 
professionell angewandt erhöht die Produktivität und Kom¬ 
munikationsqualität, senkt Kosten und stetgerl den Gewinn • 
für Computer-Profis, 

Best.-Nr. MT 530, ISBN 3-922120-52-0 nn 

(Sfr. 62,60/öS 530,40) UIVI DO,— 


Computertechnik ohne Geheimnisse 

November 1984, 313 Seiten 

Eine allgemeine Einführung in die Welt der Computertechnik 
• die wichtigsten Grundbegriffe knapp und übersichtlich dar- 
flestellt • nützliche Informationen für die richtige Kauf- 
onlscheidung • mit einer aktuellen Marklübersichl der gän¬ 
gigsten Rechnermodelle und deren Zubehör. 

Best.-Nr. MT 716, ISBN 3-89090-066-6 n«. Mn 

(Sfr. 38,60/öS 327,60) UIVI — 


Drucker-Handbuch 

Januar 1985, 188 Seiten 

Richtig kaufen — problemlos anschließen — optimal nutzen! 
Ein informativer Leitfaden für alle, die vor dem Kauf eines 
Druckers stehen • Arbeitsweise der verschiedenen Drucker- 
lypen - Druckeranschluß an verschiedene Rechnerly- 
pen/Schniltstellen • Druckerzubehör • geeignet auch als 
Nachschlagewerk! 

Best.-Nr. MT 742, ISBN 3-89090-077-1 ^ 1 « - n n 

{Sfr. 35.—/öS 296,40) UIVI üO,— 


Mikrocomputer Grundwissen 

1978, 304 Seiten 

Eine allgemeinversländliche Einführung in die Mikrocompu¬ 
ter-Technik • optimal als Einstieg für Elektronik-Laien. 
Best.-Nr. PW 156, ISBN 3-921803-02-0 
(Sfr. 33.10/öS 280,80) UIVI uD,“ 


6502 Programmieren in Assembler 

1981, 704 Selten 

Über 80 praktische Programmierbeispiele im Standardformat 
einschließlich Flußdiagrammen, Quellprogrammen. Objekt¬ 
codes und erläuternden Texten für den Mikroprozessor 
6502 ■ das unbestrittene Standardwerk für den fortgeschrit¬ 
tenen Anwender! 

Best.-Nr. PW 329, ISBN 3-921803-10-1 

(Sfr. 54.30/öS 460,20) UIVI OU,— 


6800 — Programmieren in Assembler 

1978, ca. 400 Seiten 

Eine ausführliche Beschreibung der Assemblersprache des 
Mikroprozessors 6800 • viele völlig fehlerfreie, praktische 
Programmbeispiele im Standard-Format, einschließlich Fluß¬ 
diagramm, Quellprogramm, Objektcode und erläuterndem 
Text - für den fortgeschrittenen Programmierer. 

Best.-Nr. PW 248, ISBN 3-921803-03-9 nma sn 
(Sfr. 45,10/öS 382,20) UIVI 40,— 


Lexikon der modernen Elektronik 

2. überarbeitete und erweiterte Auflage 
Februar 1985, 340 Seiten 

3000 Fachbegriffe aus der allgemeinen Elektronik ■ Mikro¬ 
elektronik ■ Mikrocomputer-Technik und Software • aus dem 
Englischen übersetzt und ausführlich erklärt • das ideale 
Nachschlagewerk für Beruf, Ausbildung und Hobby. 

Best.-Nr. MT 752, ISBN 3-89090-080-1 p... nn 

(Sfr. 47,80/öS 405,60) UIVI DZ,— 
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l>asC64- 

Profihaiidbiich 


ln diesem Buch sind alle wichtigen und nützlichen 
Informationen für professionelle Anwendungen mit 
dem Commodore 64 zusammengetragen. Nicht nur 
für Profis, auch für Anwender, die mehr über ihren 
64er erfahren wollen, ist dieses Buch eine Hilfe. 

Das erste Kapitel beschäftigt sich mit allgemeinen 
Algorithmen, die nicht nur speziell für den 64er an¬ 
gewendet werden können, sondern auch auf andere 
Rechner übertragbar sind. 

Im zweiten Kapitel sind einige Utilities (getrennt nach 
BASIC- und Maschinenprogrammen) aufgeführt. Da 
sich BASIC-Erweiterungen im Commodore 64 ohne 
Hardwareänderungen sehr leicht durchführen las¬ 
sen, wurden die im zweiten Teil vorgestellten Ma¬ 
schinenprogramme auch als BASIC-Erweiterung 
ausgebaut. Besonders nützlich für den Profi sind die 
erweiterten PEEK- und POKE-Funktionen 


Das dritte Kapitel widmet sich den sechs Verbindun¬ 
gen des Rechners nach außen hin zu, und im vierten 
Kapitel sind einige nützliche Tips und Tricks aufge¬ 
zählt, die von einzelnen PEEKs und POKEs über 
SYS-Aufrufebis hin zu kurzen Programmen reichen. 
Das letzte Kapitel stellt die Internes des Commodo¬ 
re 64 in tabellarischer Form sowie in einigen Abbil¬ 
dungen zusammen. Besonders wird hier auf den 
Speicher und die Registerverteilung (VIC, SID, CIA) 
eingegangen, aber auch die im ROM implementier¬ 
ten Routinen werden angesprochen. Im Buch befin¬ 
det sich auch eine ausführliche Fehlerbeschreibung, 
sowohl der Fehler desRechnersals auch der Floppy, 
Neben dem Literatur- und einem umfangreichen 
Stichwortverzeichnis finden Sie im Anhang zwei 
Übersichten zur Übernahme der vorgestellten 
BASIC-Erweiterungen in Ihrem Rechner (Hex- 
Listing, BASIC-Loader). 
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